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IDENTIFICATION 


PRODUCT CODE: AC-F91BA-MC 

PRODUCT NAME: CZRMLAO RMOS/3/2 FORMATTER 
DATE CREATED: APRIL 1980 

MAINTAINER: CX DIAGNOSTIC ENGINEERING 
AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE ee ee ieee IN ry DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
PO pape OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED By 
L. 


COPYRIGHT (C) 1980 DIGITAL EQUIPMENT CORPORATION 
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1. 


2.1 


2.2 


3.1 


SEQ 0003 


ABSTRACT 


THE RMO5S/3/2 FORMATTER erie) PROVIDES init dg Lad 5 TO + mye F 

TO CHECK THE HEADER AND DATA FIELDS OR VERIFY THE HEADER FIELD OF 
EACH DATA BLOCK ON THE PACK. EACH NEADER FIELD SPECIFIES THE ADDRESS 
OF ITS ASSOCIATED DATA BLOCK ON THE DISK PACK. 


IN_THE FORMAT pyc THE PROGRAM ee THE ie OF EACH 
DATA BLOCK W:iTH A CYLINDER NUMBER, TRACK NUMBER SECTOR NUMBER. 
ALSO, WRITES THE DATA FIELD WITH SELECTED DATA PATTERN, 

THE PROGRAM THEN VERIFIES me, WRITTEN DATA BLOCKS VIA EXECUTING THE 
“WRITE CHECK HEADER AND DATA’’ COMMAND. 

THE PROGRAM THEN PERFORMS A VERIFY OF SECTOR ZERO, ON EACH OF 

THE TRACKS SELECTED FOR FORMATTING. THE VERIFY IS ACCOMPLISHED BY 
EXECUTING A ‘‘READ HEADER AND DATA’’ COMMAND AND COMPARING THE TwO 
HEADER WORDS TO AN EXPECTED VALUE. 


IN THE VERIFY OPERATION, THE PROGRAM READS THE HEADER OF SECTOR 0 
THRU 29.(18 BIT MODE) OR 31. (16 BIT MODE) ON EACH CYLINDER AND 
TRACK TO BE VERIFIED, THEN COMPARES THE TWO HEADER WORDS TO MAKE 
SURE THEY ARE CORRECT. 


IN THE CHECK OPERATION, THE PROGRAM REPEATS THE FORMAT OPERATION 
THREE TIMES WITH DATA PATTERN BEING ROTATED ONE BIT AT EACH PASS. 


REQUIREMENTS 


EQUIPMENT 

PDP-11 PROCESSOR 

8K MEMORY 

KWil-L OR KW11-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH11 OR RH70 CONTROLLER 

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RMO2'S) 
PRELIMINARY PROGRAMS 

THERE ARE NO PREQUISITE PROGRAMS, PROVIDING THE RM SUBSYSTEM IS 
KNOWN TO BE OPERATIONAL. JF THE STATE OF THE RM SUBSYSTEM IS 
UNKNOWN, THE FOLLOWING PROGRAMS SHOULD BE RUN PRIOR TO USING THE 
FORMATTER PROGRAM, 

RMOS/3/2 DISKLESS TEST, PART 1 & 2 


RMO5/3/2 FUNCTIONAL TEST, PART 1 


LOADING PROCEDURES 


PAPER TAPE AND XXDP 
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3.3 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 
rath OR IT MAY BE LOADED FROM ‘XXDP* MEDIA USING THE APPROPRIATE 
APT 


THIS PROGRAM 1S APT COMPATIBLE TO THE EXTENT THAT APT HOOKS WILL 
BE IN THE PROGRAM AND WILL WORK THRU THE ‘OPTION INTERFACE’. 


FOR OTHER INTERFACES, APT MAY ONLY LOAD AND START THE PROGRAM. 
1.E. LOAD AND DUMP MODE. 


AUTOMATIC MODE (MONITOR) 

1. THE INPUT DIALOGUE IS BYPASSED 

2. THE BUSS ADDRESS AND CONTROLLER INTERRUPT VECTOR IS 
DEFAULTED. 

DUMP MODE 

INPUT DIALOGUE AFTER PROGRAM STARTS 

APT ETABLE DEFINITIONS 

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT 

ENVIRONMENTAL TABLE Hae EMtAieS,, VIA RUNNING 

THE APT UTILITY PROGRAM ‘‘TSP" 

1. SOFTWARE ENVIRONMENT: 


1 IF APT SCRIPT MODE 
0 IF STANDLONE MODE 


2. ENVIRONMENT MODE: 


BIT 7 = 1 ETABLE DOES SIZING 
= 0 PROGRAM DOES SIZING 

BIT 6 = 1 SPOOL MESSAGES TO APT IF SCRIPT MODE 
= 0 DON'T SPOOL TO APT 

BIT 5 = 1 SUPPRESS CONSOLE OUTPUT 
= 0 ALLOW CONSOLE OUTPUT 


BIT 4 TO BIT 0 ARE NOT USED 


3. SWITCH 1 (SOFTWARE SWITCH REGIS 


TER 
IF ENVIRONMENT MODE BIT 7 (SIZING 
LL 
E 


T 
T 


) 1S SET 10 1, 
THE SOFTWARE SWITCH REGISTER Wl ad INSTEAD 


OF THE HARDWARE CONSOLE SWITCH REG 
4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 


) 

Bl 
BE 
IS 


5. CPU OPTIONS 
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4.1 


NOT USED 
6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 
7. INTERRUPT VECTOR 1: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 254 
8. BUS PRIORITY 1: 
NOT USED. 
9. INTERRUPT VECTOR 2: 
NOT USED 
10. BUS PRIORITY 2: 
NOT USED 
11. BASE ADDRESS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700 
12. DEVICE MAP: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT SET TO 
1 IN BITS 0 TO 7 WILL SELECT THE CORRESPONDING DRIVE 
TO BE TESTED. BITS 8-15 ARE NOT USED. 
13. CONTROLLER DESCRIPTOR WORDS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. ANY NONE ZERO 
NUMBER SPECIFIES THAT PROGRAM RUNS IN CHECK MODE. 
14, CONTROLLER DESCRIPTOR WORDS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. ANY NONE ZERO 


NUMBER SPECIFIES THAT PROGRAM SELECTS 30.(18 BIT MODE) 
SECTORS FOR A TRACK IN ALL OPERATIONS. 


STARTING ADDRESSES 


THE PROGRAM IS STARTED FROM LOCATION 200 IF THE ADDRESS OF THE 
RH11 OR RH70 WILL NOT BE CHANGED FROM ITS DEFAULT VALUE OF 176700. 


THE PROGRAM IS STARTED FROM LOCATION 204 IF THE ADDRESS OF 
THE RH11 OR RH70 IS TO BE CHANGED FROM THE PRELOADED VALUE. 
NOTE THAT STARTING ADDRESS 204 IS VALID ONLY ONCE AFTER THE 
PROGRAM IS LOADED. 

(SEE SECTION 4.3) 

OPERATION ACTION 

1, LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 


2. LOAD THE STARTING ADDRESS = 200 OR 204 
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3. 


SET THE SWITCHES AS REQUIRED AND PRESS ‘START’. 


IF THIS IS THE PROGRAM'S FIRST START, THE toe OF THE DRIVES 
ON THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT. THIS TYPEOUT 
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING Sw<02>. 


THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE: 
"PROGRAM MODE (F, C OR v):" 


ENTER THE APPROPRIATE CODE: ‘'F* FOR FORMAT & QUICK VERIFY, °C’ FOR 
CHECK OR ‘V' FOR VERIFY OPERATION. IF A CARRIAGE RETURN IS 
ENTERED IN RESPONSE TO THE REQUEST, THE PROGRAM WILL ASSUME 
"FORMAT & QUICK VERIFY’. 


THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE: 
‘OPERATE IN 32 SECTOR (16 BIT) MODE (Y OR N)' 


ENTER = APPROPRIATE CHARACTER: ‘VY’ FOR 16 BIT MODE OR ‘N" FOR 
18 BIT MODE. IF A ‘CARRIAGE RETURN’ IS ey io IN RESPONSE TO 
THIS REQUEST, THE PROGRAM WILL ASSUME 16 BIT MODE. 


THE PROGRAM WILL THEN ASK FOR A DRIVE: 
"DRIVE: ° 


ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED. A ‘PERIOD" OR 
"CARRIAGE RETURN’ ENTRY WILL SELECT DRIVE 0. IF THE DRIVE SELECTED 
1S_NOT AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND 
RETURN TO THE DRIVE ADDRESS REQUEST. 


AFTER THE OPERATOR HAS SELECTED A DRIVE, THE PROGRAM WILL ASK 
FOR ADDRESS LIMITS FOR THE SELECTED DRIVE: 


"ENTER ADDRESS LIMITS: ' 


THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR BEGINNING CYLINDER 
AND TRACK AND FOR ENDING CYLINDER AND TRACK WILL BE TYPED OUT. 

IF A ‘CARRIAGE ee 1S TYPED AS A RESPONSE, THE PRESENT VALUE 
WILL BE USED; IF A ‘PERIOD’ IS TYPED, THE PROGRAM vogr BYPASS 
THE REMAINING ENTRIES AND WILL USE THEIR PRESENT VALUES. 

NOTE THAT THE CYLINDER AND TRACK VALUES ARE DECIMAL NUMBERS. 

THE ADDRESS SPECIFIED BY THE BEGINNING TRACK MUST BE 

LESS THAN THE ENDING TRACK ADDRESS IF THESE TWO 

ADDRESSES ARE ON THE SAME CYLINDER. ON THE OTHER HAND, 

THE ENDING CYLINDER ADDRESS MAY BE LESS THAN THE STARTING 
CYLINDER ADDRESS. IN THIS CASE, i“ PROGRAM WILL FORMAT 

OR VERIFY THE DISK PACK FROM THE STARTING CYLINDER TO 

CYLINDER 822 AND THEN FROM CYLINDER 0 TO THE ENDING CYLINDER. 


THE yer WILL THEN ASK FOR THE DATA PATTERN: 
(IN CASE OF FORMAT MODE) 


"SELECT DATA PATTERN 
(0) ZERO'S 
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4.5 


SEQ 0007 


(1) ONE'S 

(2) WORST CASE 
ENTER (0, 1 OR 2):° 
THE 


ENTER CODE FOR THE REQUIRED PATTERN. ‘CARRIAGE RETURN’ OR 
onttien. ENTRIES WILL CAUSE THE PROGRAM TO USE THE "WORST CASE’ 


THE "WORST CASE’ PATTERN IS THE FOLLOWING OCTAL SEQUENCE REPEATED 
THROUGH THE DATA AREA OF THE SECTOR: 


066666 


NOTE: ive be CHECK OPERATION, THE ABOVE MENTIONED MESSAGE IS 
BYPASSED. THE DATA PATTERN IS INITIATED TO 133331 AND IS 
ROTATED ONE BIT TO THE RIGHT AT EACH PASS OF THE CHECK 
OPERATION. AFTER THE CHECK OPERATION IS DONE, THE DATA 
PATTERN WILL BE RESTORED TO 066666. 


9. THE PROGRAM WILL THEN TYPE: 

"STARTING FORMAT ON DRIVE N' 

OR 
"STARTING CHECK ON DRIVE N' 

OR 
"STARTING VERIFY ON DRIVE N° 

NOTE: IF A NEW PACK IS UNFORMATTED, THE PROGRAM ALSO ASKS YOU TO 

ENTER TWO SERIAL NUMBERS. (EXCEPT IF OPERATING IN VERIFY 


ONLY MODE) THESE TWO SERIAL NUMBER MUST BE NON-ZERO DECIMAL 
NUMBERS. 


10. THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE OPERATION 
Bhd py A ‘CONTROL O°. THE PROGRAM WILL TYPE THE FOLLOWING 


"PRESENT ADDRESS IS: CXXX TXX" 


11. TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE, THE 
PROGRAM MUST BE STARTED FROM LOCATION 200 OR 204 AGAIN. 


RH11 = RH70 UNIBUS ADDRESS 


THE PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT 
176700 AND THAT THE VECTOR ADDRESS IS 254. THESE ADDRESSES MAY 

BE CHANGED WHEN THE PROGRAM IS STARTED FROM LOCATION 204. 

IF THE RH11 - RH70 IS NOT AT THE DEFAULT ADDRESS, THE PROGRAM MUST 
BE STARTED FROM 204 INITIALLY AS THE PROGRAM GOES THROUGH THE 
ADDRESS CHANGE ROUTINE AT INITIAL START ONLY. ENTER THE RH11/RH70 
ADDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM, 
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4.4 


OTHER UNIBUS ADDRESSES 


Loc TAG CONTENTS FUNCTION 

1160 $TKS 177560 TTY KEYBOARD STATUS REGISTER 
1162 $TKB 177562 TTY KEYBOARD BUFFER REGISTER 
1164 STPS 177564 TTY PRINTER STATUS REGISTER 
1166 $TPB 177566 TTY PRINTER BUFFER REGISTER 
1276 $LKCSR 172540 KW11l-P CONTROL REGISTER 

1300 $LKCSB 172542 KW11-P COUNTER REGISTER 

1302 SLPVEC 104 KW11-P VECTOR ADDRESS 

1304 $LKS 177546 KWil-L CONTROL REGISTER 

1306 $LKV 100 sADDRESS OF KWI1-L VECTOR 


SW<15>=1...HALT ON ERROR 

SW<13>=1... INHIBIT os TYPEOUTS 

SW<10>=1.. BELL ON ERROR 

SW<09>=1...LOOP ON ERROR 

oe cot Oe My DISPLAY SYSTEM a AFTER INITIAL START 


SW<01>=1...LOOP ON THE CURRENT TRA 
SW<00>=1...LOOP THE PROGRAM ON THE SELECTED DRIVE 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH “wages ER IS 

NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE 
"SOFTWARE' SWITCH REGISTER 1S LOCATED AT LOCATION 176. THE 

SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A "CONTROL G*. THE PROGRAM WILL 
RECOGNIZE THE ‘CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM 

1S AT A HIGHER PRIORITY PROCESSING AN RM INTERRUPT. THE 

"SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =' 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., "RUBOUT" AND 
"CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE* SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
*UP* ITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
[SOE TWARE’ REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 

LL 


ERROR MESSAGES 


SEQ 0008 
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2. 


"RH INTERRUPT OCCURRED (RMAS=0) = AN INTERRUPT OCCURRED, BUT 
NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION. 


"UNEXPECTED ATTENTION OCCURRED’ = THE INDICATED DRIVE INTERRUPTED, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 


"MASSBUS PARITY ERROR (MCPE=1)° = A CONTROL BUS PARITY ERROR 
WAS DETECTED BY THE RH WHEN THE INDICATED REGISTER WAS READ. 


"MASSBUS PARITY ERROR (PAR=1)' = A CONTROL BUS wanes ERROR 
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN 


"ADDRESS PLUG CHANGE BIT SET’ = THE PROGRAM FOUND THE ‘OPE’ 
BIT SET FOR THE INDICATED DRIVE. 


"RH DIDN'T RESPOND TO ADDRESSING’ = THE PROGRAM ACCESSED THE 
RH AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


"DRIVE OFFLINE’ = THE INDICATED DRIVE HAS GONE OFFLINE 


"PERSISTENT DRIVE UNSAFE ERROR’ - THE INDICATED DRIVE HAS BECOME 
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING ‘DRIVE 
CLEAR’ INSTRUCTIONS. 


"UNCORRECTABLE MASSBUS PARITY ERROR’ - THE PROGRAM ATTEMPTED 

TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY 
ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A ‘PAR' ERROR IN THE 
DRIVE AND A PARITY ERROR OCCURRED. 


"SOFTWARE TIMEOUT’ - THE OPERATION FAILED TO COMPLETE WITHIN 
1 SECOND. 


"DRIVE UNSAFE ERROR’ - A NON-PERSISTENT UNSAFE ERROR OCCURRED 
DURING THE OPERATION. 


*CONTROLLER/DRIVE ERROR DURING WRITE’ - THE INDICATED NON-DATA 
ERROR WAS DETECTED DURING A FORMAT OPERATION. 


"CONTROLLER/DRIVE ERROR DURING WRITE CHECK’ - A NON-DATA ERROR 
OCCURRED DURING THE WRITE CHECK. 


"DATA ERROR DURING WRITE CHECK’ - Me DATA RELATED ERROR OCCURRED 
DURING A WRITE CHECK OPERATICN. A DATA ERROR IS CONSIDERED 
toc’ = Rat FOLLOWING ERRORS: “DCK", "OPI", ‘DTE*, ‘HCRC', 


"RETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE’ - THE INDICATED 
SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR. 


*CONTROLLER/ORIVE ERROR VERIFYING HEADERS* - AN ERROR OCCURRED DURING 


THE VERIFICATION PASS AFTER FORMATTING. 


""HCE* ERROR VERIFYING HEADERS’ = A HEADER ERROR OCCURRED DURING 
THE VERIFICATION PASS AFTER FORMATTING. 


"CYLINDER FIELD IN HEADER IS NOT CORRECT® - THE CYLINDER FIELD 


SEQ 0009 
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r. 


7.1 


7.2 


r.2 


8.1 


FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT. 


19, ‘TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT’ = THE TRACK AND 
eo FROM A HEADER READ DURING THE VERIFICATION IS NOT 


20. ‘WRITE CHECK ERROR’ - THE RH REPORTED A WRITE CHECK ERROR AND 
NO DRIVE ERRORS WERE SET. 


MISCELLANEOUS 


FORMAT TIME 


IT TAKES APPROX. 10 MINUTES TO FORMAT AN ENTIRE RMO3/2 DISK PACK 
IN "FORMAT' MODE. THE ‘CHECK’ MODE TAKES APPROX. 30 MINUTES FOR 
AN ENTIRE RMO3/2 DISK PACK. 


1T TAKES APPROX. 30 MINUTES TO FORMAT AN ENTIRE RMOS DISK PACK 
IN 'FORMAT' MODE. THE 'CHECK' MODE TAKES APPROX. 90 MINUTES FOR 
AN ENTIRE RMOS DISK PACK. 


THE ‘VERIFY’ ONLY MODE TAKES APPROX. 7 MINUTES FOR AN RMO3/2 AND 
APPROX. 20 MINUTES FOR RMOS. 


HALTING THE PROGRAM 


THE OPERATOR SHOULD NOT HALT THE PROGRAM VIA THE CONSOLE DURING A 
FORMAT OPERATION. HALTING THE PROGRAM MAY LEAVE A SECTOR INCORRECTLY 
FORMATTED. TO TERMINATE THE FORMAT, TYPE A ‘CONTROL C’. 


SURFACE VERIFICATION 


THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM DISK 
PACK VERIFICATION. IF THE PROGRAM REPORTS A SECTOR AS BEING ‘NOT 
ACCEPTABLE’, THIS MAY IN FACT INDICATE A BAD SURFACE; HOWEVER, 
SECTORS WHICH 'PASSED' MAY OR MAY NOT BE GOOD. 


PROGRAM DESCRIPTION 


FORMAT OPERATION 


THE PROGRAM FORMATS THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS 
SPECIFIED BY THE OPERATOR. 


THE FORMAT OPERATION CONSISTS OF A WRITE HEADER AND DATA COMMAND FOR 
THE ENTIRE TRACK FOLLOWED BY A WRITE CHECK HEADER AND DATA COMMAND. 
IF AN ERROR OCCURS DURING THE Akt THE PROGRAM WILL RETRY THE 
WRITE BEFORE CONTINUING. IF_A DATA RELATED ERROR IS DETECTED 

DURING THE WRITE CHECK (A DATA Lag I$ all Prd AS ONE OF 

THE FOLLOWING ERRORS: ‘DCK', "OPI", “DTE*, ‘HCRC’, ‘HCE’, 


SEQ 0010 
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SEQ 0011 
457 OR 'FER'), THE SECTOR IN ERROR WILL BE REWRITTEN. THE PROGRAM WILL 
458 CHECK THE SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTO 
459 DURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE 
460 THE SECTOR AS BEING 'NONRECOVERABLE'. FOLLOWING THIS SEQUENCE, 
461 THE REMAINDER OF THE TRACK IS CHECKED. IF DATA ERRORS ARE ENCOUNTERED 
462 IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED AS 
463 DESCRIBED ABOVE. 
465 IF A NON=DATA RELATED ERROR OCCURS DURING THE WRITE CHECK, THE 
466 PROGRAM WILL RETRY THE COMMAND FOR THE ENTIRE TRACK BEFORE PROCEEDING 
467 | TO THE NEXT TRACK. 
469 IT SHOULD BE NOTED THAT THE FORMATTER PROGRAM FORMATS THE PACK ONLY 
470 AND IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK. ERRORS 
471 THAT ARE ENCOUNTERED MAY BE THE RESULT OF BAD AREAS ON THE PACK 
472 BUT, AS THE PROGRAM 1S NOT DESIGNED TO PERFORM AN EXHAUSTIVE CHECK 
473 OF THE DISK PACK SURFACE, THE PROGRAM CANNOT MAKE THIS CONCLUSION. 
47% IN GENERAL, HOWEVER, THE OPERATOR CAN ASSUME THAT SECTORS WHICH 
475 THE PROGRAM CALLS UNACCEPTABLE’ INDICATE BAD AREAS OF THE PACK; 
476 UNFORTUNATELY, SECTORS WHICH ‘PASS' CANNOT BE ASSUMED TO BE GOOD. 
478 DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD 
479 WITH THE PATTERN SELECTED BY THE OPERATOR. 
481 8.2 CHECK OPERATION 
483 THE CHECK OPERATION IS IDENTICAL TO THE THE FORMAT OPERATION 
484 DESCRIBED IN SECTION 8.1, EXCEPT THAT IN EACH CHECK OPERATION THE 
485 * FORMAT OPERATION IS REPEATED THREE TIMES WITH DATA PATTERN BEING 
486 ROTATED ONE BIT POSITION AT EACH PASS. 
183 
489 8.3 POSITIONER VERIFICATION (QUICK VERirY) 
491 AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION, THE 
492 POSITIONER I$ RETURNED TO THE STARTING CYLINDER AND THE HEADER 
493 FROM SECTOR 0 ON THE STARTING TRACK IS READ. THE CYLINDER ADDRESS 
49% FIELD FROM THE HEADER IS COMPARED TO iHE REQUESTED CYLINDER; IF 
495 THE CYLINDER ADDRESSES DO NOT COMPARE, AN ERROR MESSAGE 1S TYPED. 
4% THE PROGRAM CHECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER 
497 : OF SECTOR 0 ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED. 
496 THIS CHECK 1S PERFORMED TO CONFIRM THAT THE DISK'S POSITIONER 
499 ADVANCED PROPERLY DURING THE FORMAT OPERATION. 
501 8.4 HEADER VERIFICATION (VERIFY ONLY) 
503 THE HEADER VERIFICATION OPERATION PERFORMS A READ HEADER AND DATA 
504 TO AN ENTIRE TRACK AT A TIME, THEN COMPARES THE EXPECTED HEADE 
505 WORDS WITH RECIEVED HEADER WORDS. THE CYLINDER ADDRESS FIELD FROM THE 
506 HEADER IS COMPARED TO THE EXPECTED CYLINDER, IF THE CYLINDER ADDRESSES 
507 DO NOT COMPARE, AN ERROR MESSAGE IS REPORTED. NEXT, THE TRACK/SECTOR 
50 FIELD FROM THE HEADER IS COMPARED TO THE EXPECTED TRACK/SECTOR, IF 
509 THE TRACK/SECTOR ADDRESSES DO NOT COMPARE, AN ERROR 1 REPORTED. 
510 VERIFICATION OF THE HEADERS STARTS FROM SECTOR 0 ON THE BEGINNING 
511 CYLINDER AND TRACK, AND CONTINUES UNTIL. COMPARING SECTOR 29. (18 B11 
512 MODE) OR 31. (16 BIT MODE) ON ENDING CYLINDER AND TRACK. THIS CHECK 
513 IS PERFORMED TO CONFIRM THAT A DISK HAS PREVIOUSLY BEEN FORMATTED 
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AND ALL THE HEADERS ARE IN GOOD CONDITION. 


BAD SPOT FILE 


SECTORS 9 THRU 31.,0N CYLINDER 822., LAST TRACK ARE ALWAYS FORMATTED 
IN 16 BIT MODE. THEY CONTAIN ton BAD by ADDRESS ON THE 
PACK FOR BOTH 30. AND 352. SECTOR OPERATIONS. 


THE DATA FIELD OF EACH SECTOR OF THE BAD SPOT FILE IS DESCRIPTED BELOw: 


THE FIRST TWO WORDS IN THE DATA FIELD SPECIFY THE SERIAL 
NUMBER OF THE PACK. THE SERIAL NUMBER MUST BE A NON-ZERO 
NUMBER AND CONSISTS OF MAXIMUM 10 OCTAL DIGITS. 

THE FIRST WORD OF THE SERIAL NUMBER CONTAINS THE 5 

LEAST SIGNIFICANT OCTAi DIGITS,WHILE THE SECOND 

WORD CONTAINS THE 5 MOST SIGNIFICANT DIGITS. 


THE THIRD WORD IS ALWAYS ZERO. 
THE FORTH WORD DEFINES THE PACK IS A DATA PACK ,IF IT IS 0. 


i FOLLOWING 252 WORDS DEFINE THE BAD SECTOR ADDRESS; TwO 

WORDS ARE USED TO DEFINE A SIGNLE BAD SECTOR, THE FIRST 

WORD SPECIFIES THE CYLINDER ADDRESS, THE SECOND WORD 

SPEDIFIES THE TRACK (HIGH BYTE) AND SECTOR (LOW BATE) ADDRESSES. 
ALL UNUSED LOCATIONS ARE RECORDED WITH ONES. 


THE SECTORS ON — LAST TRACK ARE FURTHER DIVIDED INTO FOUR 
GROUPS AS FOL!.OWS 


(1) SECTORS 0, 2, 4, 6 AND 8. CONTAIN THE MANUFACTURES DEFINED BAD 
SECTORS FOR 16 bit MODE. 


(2) SECTORS 1, 3, 5, 7 AND 9. CONTAIN THE MANUFACTURES DEFINED BAD 
SECTORS FOR 18 BIT NODE. 


(3) SECTORS 10., ie THRU 30. CONTAIN THE USER DEFINED BAD SECTORS 
FOR 16 BIT MODE. © 


(4) SECTORS bs. Lb THRU 31. CONTAIN THE USER DEFINED LAD SECTORS 
FOR 18 BiT M 


THE SECTORS IN EACH GROUP ARE IDENTICAL AND SECTORS 0, 1, 10. AND 11. 
ARE USED AS REFERENCE SECTORS BY THE PROGRAM. 


sition fist. PROVIDES A FEW UTILITY ROUTINES TO HANDLE THE BAD 
TO ACCESS THESE ROUTINES START THE PROGRAM AT 204. 
BEFORE THE PROGRAM FORMATS THE PACK,THE PROGRAM TYPES THE “OLLOWING 


MESSAGE TO ALLOW THE OPERATOR TO ACCESS THE ROUTINES 
BY ENTERING THE SELECTED FUNCTION NUMBER. 


+H. U.S.R. BAD SECTORS. .cccnscecccoseacerseeseacess 0 
PRINT R.F 6. GAD SECTORS. .nccccccescenescovccesevense 1 


SEQ 0012 


| N 1 
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SEQ 0013 
571 a RE | eee 2 
572 INITIALIZE U.S.R. BAD SECTOR FILE.............cccccce z 
573 PRINT A SECTOR OF THE LAST TRACK.......... ieioraek ndeiaacaidle 
| $74 PRINT THIS MESSAGE....... uinundiaedenakaunelnataiesnd 5 
| 575 ERT lh ctéaen eeeseeeeee eeoeeeeeeeeee eeeeeeeeeeseeeeee <CR> 
576 ENTER UTILITY FUNCTION: 
oe 
| 579 THE FIRST ROUTINE ALLOWS THE USER DEFINED BAD SECTORS 
| 580 TO BE ENTERED MANUALLY BY SPECIFING HE CYLINDER ADDRESS, TRACK 
581 ADDRESS AND SECTOR ADDRESS IN DECIMAL VALUE. TO EXIT FROM 
382 THE ROUTINE JUST ENTER A PERIOD(.) FOLLOWED BY A <CR>. 
584 EXAMPLE : 
585 CYLINDER -1 / 200 
| 586 TRACK =1/ 4 
| 587 SECTOR <1 / 23 
ea CYLINDER <1 / .<CR> 
| 590 THE SECOND AND THIRD ROUTINES TYPE THE MANUFACTURE AND USER 
| 591 DEFINED BAD SECTORS ON THE CONSOLE IN OCTAL NUMBER. 
592 THE FIRST TWO WORDS ON THE LISTING ARE THE SERIAL NUMBERS FOLLOWED 
393 BY TWO WORDS OF ALL O'S 
595 THE FOURTH ROUTINE RESETS ALL USER DEFINED BAD SECTOR ADDRESSES TO -1. 
| 597 THE FIFTH ROUTINE ALLOWS A WHOLE SECTOR OF THE BAD SPOT FILE 
299 RETRIEVED FROM THE PACK BEING FORMATTED TO BE TYPED ON THE CONSOLE. 
| 54 TO EXIT THE ROUTINE JUST TYPE A "CARRIAGE RETURN’ <CR>. 
602 
603 10.1 RH/RM DRIVER ; 
5 Seema. 
| one THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH/RM DRIVER. 
608 
609 10.2 TO INITIALIZE THE DRIVER: 
| 611 JSR PC,RMINIT 
| 612 RETURN 
| 613 
614 UPON RETURN YOU MUST EXAMINE THE ‘'DRVSTA' TABLE TO DETERMINE 
615 THE DRIVES THAT ARE ONLINE FOR TESTING. THE 'DRVSTA' TABLE IS. ; 
| 616 EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
ol” BE INDICATED AS FOLLOWS: 
619 DRVSTA DRIVE STATE 
620 pa. Beh eg lr Eee eee, ol ee 
621 
622 >0 ONL INE 
623 =0 OFFLINE, 
624 1S NOT AN Ors 3/2. OR 
625 NONEXISTENT DRIVE 
626 <0 UNSAFE 


ew 


— CZRMLAO RMOS/3/2 FORMATTER 


10.3 


10.4 
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THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED ‘DRvTYP’. 


THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 


DRVTYP CONDITION 


0 NONEXISTENT RIVE 

4 RMO3 

5 RMO2 

7 RMO5S 

1 NOT AN RMOS/3/2 

THE "RMINIT' ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 


AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 
FOLLOWING SEQUENCE. 


CALL: 
JSR RO,RMO3 ;MAKE THE CALL 
PNTDPB sADDRESS OF DPB* 
RETURNI sRETURN IF QUEUE IS FULL 
RETURN2 ;RETURN IF REQUEST IS IN 


;QUEVE OR THERE IS AN 
sERROR CONDITION 


*DPB (DATA PARAMETER BLOCK) 


PNTDPB: eh DRIVE NUMBER 


OFFSET VALUE OR FMT16, ECT, 
COMMAND 
PSEL AND Al7 AND Al6 


ST REG. INDEX 
) TRACK ADDRESS OR 
REG. E 


£ 
oO 
=z 
o° 
oo focllUOWlCUOOOCOOOO 


T NDEX 
. WORD ) CYLINDER ADDRESS 
~ WORD ) ERROR TABLE POINTER 
NTS TO THE FIRST OF TWENTY 
ATIONS OF WHERE THE DRIVER 
TO STORE THE RH/RM 
ISTERS ON AN ERROR. IF LEFT 
O REGISTERS ARE NOT SAVED 
-WORD 0O ) STATUS/ERROR INDICATOR 
15=1=>ERROR OCCURRED 
07=1=>DONE 
14-B1T09 AND 81106-81103 
ICATE TYPE OF ERROR 
THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY 
TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE "RM TIMER’ ROUTINE 
WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 


MOV #16.,-(SP) 216 MILLISECONDS BETWEEN 


AND HCI 


SEQ 0014 
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JSR PC,RMTMR 


sCLOCK TICKS 
:CALL THE TIMER ROUTINE 


1T SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 


CLOCK. AND THE ELAPSED TIME 


MUST BE IN MILLISECONDS 


THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL “Posi t10MiNG 
AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30 
SECONDS FOR ERROR RECOVERY OPERATIONS. 


10.4.1 EXAMPLE = WRITE 1000. WORDS 


1$: JSR RO,RMO3 
FMTDPB 
BR 1$ 

2$: TST FMTDPB+16 
BEQ 2$ 


BM] ERROR1 


FMTDPB: .BYTE 5 
-BYTE 0O 
-BYTE 161 
BYTE 0O 
~ WORD -1000. 
WORD WRTBUF 
-BYTE 3 
-BYTE 5 
. WORD 400 
. WORD ERRTBS 
WORD 0 
ALTERNATE DPB SETUP 
FMTDPB: .WORD 5 
~ WORD WRITE 
-WORD -100 
-WORD WRTBUF 
-BYTE 3 


10.5 RH/RM REGISTERS 
MNEMONIC 


;CALL THE DRIVER 

:DPB ADDRESS 

:WAIT FOR QUEUE IF 

:WAIT FOR COMMAND 10 COMPLETE 


sERROR OCCURRED 


:DRIVE #5 
[WRITE COMMAND 


SWORD COUNT 
“BUFFER ADDRESS 
SECTOR 


; TRACK 

badly 

TERROR TABLE 
;STATUS/ERROR INDICATOR 


:THIS SETUP ACHIEVED 
sEVERYTHING THE 

sABOVE TABLE DID, sBuT 
71N A CLEANER FORMAT 


Ne 
Oe FNreOSC FNC 


SEQ 0015 
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10.6 


COMMANDS PERFORMED BY TH 
COMPAND 


NO OPERATION 
UNLOAD 


SEEK 
RECALIRATE 
DRIVE CLEAR 


T 
RETURN TO CENTER 
READIN PRESET 
4s - alana 


SEAR 
GET REGISTER(S) 
SET FORM 

SELECT DRIVE 
WRITE CHECK DATA 
WRT CHK - & DA 
WRITE DAT 

WRITE HEADER & D 
READ DAT 

READ HEADER & DA 


= HOUSEKEEPING 
= POSITIONING 

= DATA TRANSFER 
= SPECIAL PROV 


DPB STATUS/ERROR INDICAT 


“nota 


E DRIVER 


TA 
ATA 
TA 


IDED BY THE DRIVER 
OR WORD 


COMMAND TYPE 


VUEVUVTVTIVTUNNYNVZAZVIZZvVVIZ Za 


THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
sg ee ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 


MEANING IF ON A “'I"’ 


ERROR OCCURRED 
DONE (BIT07=0); 
DONE (BIT07=1); 


USER MADE A REQUEST 


B] 
Bl 


SEQ 0016 


CZRMLAO RMOS/3/2 FORMATTER 
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oo 


Oo G9 Cd 09 Cn 09 Co OD CD CD CD CD 
et et et et et ed 
SOO ONOUFWH— 


. 
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10.8 


1341 


) 


12(2) 
112) 


10(2)(4) 


9(3)(4) 


8(4) 
7 

6(2) 
5(2) 


4(2) 
3(2) 


(2) 


(3) 


(4) 


ERROR CALLS 
THERE ARE A 


=> 


PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 
USER MADE A REQUEST FOR A FUNCTION 

TO BE PERFORMED ON A DRIVE THAT HAS AN 
UNLOAD REQUEST IN QUEUE. 

PERSISTENT UNSAFE CONDITION EXIST. 
UNCORRECTABLE PARITY ERROR OCCURRED 
FATAL PARITY ERROR. A MASSBUS CLEAR WAS 
PERFORMED, ALL QUEUES WERE EMPTIED, AND 
ALL DRVACT'S SET TO THE IDLE STATE 
SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
DONE 

ERROR OCCURRED DURING AN 1/0 OPERATION 


ERROR gy ae AN OPERATION 
OTHER THAN 1/0 


CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC ''RECALIBRATE'’ SEQUENCE 


PORT REQUEST TIMEOUT. THE DRIVER REQUESTED 
THE DRIVE BUT THE OPPOSITE PORT DID NOT 
RELEASE THE DRIVE WITHIN 20 SECONDS. 


NON-EXISTENT DRIVE REQUESTED. USER MADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 


REQUEST WASN'T PUT IN QUEUE. (RH/RM 
REGISTERS WERE NOT SAVED) 


REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A ‘DRIVE CLEAK'’ TO THE DRIVE. 

NOTE: ALL RH/RM REGISTERS ARE SAVED 

AS PER DPB+14 BEFORE THE “DRIVE CLEAR". 


REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MASSBUS INIT. ALL 
RH/RM REGISTERS FOR THE DRIVE WERE 
SAVED AS PER DPB+14 BEFORE THE INIT. 


A ‘'RECALIBRATE"’ yoo BE ISSUED 
BEFORE ANY OTHER COMMAND. 


MADE BY THE DRIVER. 


FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 


SEQ 0017 


CZRMLAO RMOS/3/2 FORMATTER 
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SEQ 0018 


WHEN THIS TYPE OF 2. tae a DETECTED + THE DRIVER i WILL MAKE 
AN ERROR CALL OF THE FORM ‘ERROR N'', WHERE ‘'N'' IS THE ERROR 
NUMBER AND THE ERROR WiLL BE AN EMT “INSTRUCTION, 


N TYPE DATA AVAILABLE 
1 RH70 INTERRUPT *R4= RMCS1°S ADDRESS 
OCCURRED (RHAS=0) 
2 UNEXPECTED ATTENTION Ri= DRIVE NUMBER 
OCCURRED R3= ATA BIT 
*R4= RMCS1'S ADDRESS 
R5= (RMAS) 
RMERRS =RMDS 
RMERRS*+2=RMER1 
RMERRS*4=RMER2 
RMERRS+6=RMMR2 
3 MASSBUS PARITY RD.ADR= ADDRESS OF REG. READ 
ERROR (MCPE=1) RD.WRD= WORD READ 
4 MASSBUS PARITY WRT.AD= ADDRESS OF REG. WRITTEN 4 


ERROR (PAR=1) WRT.WD= WORD WRITTEN 


RD.WRD= WORD READ BACK 


S PLUG CHANGE Ri= DRIVE NUMBER 
T (*OPE' ERROR) R3= ATA BIT 


5 ADDRES 
BIT SE 


*R4= 
R5= 


RMCS1'S ADDRESS 
(RMAS) 


RMERRS =RMDS 
RMERRS+2=RMER1 
RMERRS+4=RMER2 
RMERRS+6=RMMR2 


* THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 
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001100 
104000 
000004 


000011 


000007 


000000 
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;PROGRAM REVISION #001 


-TITLE CZRMLAO 2 ae FORMATTER 
;*COPYRIGHT (C) 1980 


;*DIGITAL 


EQUIPMENT CORP. 


: *MAYNARD, MASS. 01754 

*f 

;*PROGRAM BY MIKE LEAVITT 

** 

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 


3 SPACKAGE 


(MAINDEC-11-DZQAC-C4), 1980 


*SBTTL OPERATIONAL SWITCH SETTINGS 


- SWITCH USE 

J 

:* 15 HALT ON ERROR 

if 13 INHIBIT ERROR TYPEOUTS 

:* 10 BELL ON ERROR 

3* y LOOP ON ERROR 

s* 2 DON'T DISPLAY SYSTEM STATUS AFTER JMITIAL START 
:* 1 LOOP ON THE CURRENT TRACK 

‘® 


0 LOOP THE PROGRAM ON THE SELECTED DRIVE 


-SBTTL BASIC DEFINITIONS 


*INITIAL 
STACK = 


ERROR = 
SCOPE = 


ADDRESS OF THE STACK POINTER *** 1100 ee 
EMT ::BASIC DEFINITION OF ERROR CALL 
10T >:BASIC DEFINITION OF SCOPE CALL 


eee ts te DEFINITIONS 


Oo 

2 

- 

nn 
Hunn 


v 
nun 
£D 
zo 

nun tu 


D 

DDISP 

; *GENERAL 
0 


=] 
wn 
fot ot te th te te te te 


:;CODE FOR HORIZONTAL TAB 

:;CODE FOR LINE FEED 

:3 CODE FOR CARRIAGE RETURN 

;CODE FOR CARRIAGE RETURN-LINE FEED 
776 PROCESSOR STATUS WORD 


774 :;STACK LIMIT REGISTER 

772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
570 ; HARDWARE SWITCH REGISTER 

570 ; ;HARDWARE DISPLAY REGISTER 


RPOSE REGISTER Soaks aad 


~~ =—N——— 


NANO UWE WN -OlCl NNNN NOUN 
ee 
ee 
DZDmawDwDwDDZDDZD 


VO Fe FL PL VL PL PL PL PE DEO 


: [PROGRAM COUNTER 


goPRionity LEVEL DEFINITIONS 
PRO 0 


7; PRIORITY LEVEL 0 


SEQ 0019 


CZRMLAO RMOS/ rf ¢ oe 


BASIC DEFINIT 


000040 


000340 


100000 


000001 


100000 


000100 


H 
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GISTER'’ SWITCH DEFINITIONS 
0000 


huonunrhnnhnenhh hah nnn 


;*DATA BT DEFINITIONS (B1T00 TO BIT15) 
100000 


uu tO—WwEUSnwWwoo—nrweuv 


oooor vwnnnnnhnhnnhnnnh nt 


fosfeclestocleclecloslectostvslecloslesiocloslesiociosiesieeh ty 
LL. 
anWOODOCOOCOCOCOC°C:o.--" = = Ss 


SEQ 0020 


CZRMLAO RMOS/3/2 FORMATTER 


BASIC DEFINITIONS 


99 


ee ee ee ee eee 
—-— Se SS OOOOCOCCOCOSCSo 


WEWN—0O OOnNO UF woo 


000040 


000001 


000004 


000240 


000100 


040000 


000001 


040000 
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nuh itt tt 
o-—- DWwWwWwooaw 
as be be sb be 
tH HH 
oOooco°coo 
om NWWEW 


mo 
oO 


PIRQVEC 
-SBTTL 


240 


all TRAP VECTOR | aig 


ME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 


:: TRACE TRAP 

; BREAKPOINT TRAP (BPT) 
:;INPUT/OUTPUT TRAP (I10T) **SCOPE** 
:;POWER FAIL 

; EMULATOR TRAP (EMT) **ERROR** 
33''TRAP’' TRAP 

2: TTY KEYBOARD Hy shy 

:;TTY PRINTER 


VECTOR 
33 PROGRAM INTERRUPT REQUEST VECTOR 


RH11/RH70 REGISTERS 
CONTROL AND STATUS REGISTER 1 (RMCS1) — 


100000 


; INTERRUPT ENABLE (BIT #6) 
:READY (BIT #7) 


:HIGH ORDER BUS ADDRESS BIT (B 
;HIGH ORDER BUS ADDRESS BIT (B 


PORT SELECT (BIT #10) 


:MASSBUSS PARITY ERROR (BIT #1 


; TRANSFER ERROR (BIT #14) 
SPECIAL CONDITION (BIT #15 


;WORD COUNT REGISTER (RMWC) 
(EACH BIT IS CALLED BY BIT NUMBER) 


;BUS ADDRESS REGISTER (RMBA) 
: (EACH BIT 1S CALLED BY BIT NUMBER) 


;CONTROL AND STATUS REGISTER 2 (RMCS2) 


Hunn nnn nn nn 


sUNIT SELECT (BIT #0) 
sUNIT SELECT (BIT #1) 
UNIT SELECT (BIT #2) 


BUS ADDRESS INCREMENT INHIBIT (BIT #3) 


sMASSBUS PARITY TEST (BIT # 
CLEAR (BIT #5) 

; INPUT READY (BIT #6) 
OUTPUT READY (BIT #7) 


) 


4) 


] 
] 
3 


;MASS BUS PARITY ERROR (BIT #8) 
:MISSED TRANSFER ERROR (BI! #9) 


T 
T 


) 


#8) 
#9) 


SEQ 0021 
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CZRMLAO 
RH11/RH70 REGIS SEQ 0022 
ig 100000 DLT = 100000 DATA LATE (BIT #15) 
118 ;DATA BUFFER REGISTER (RMDB) 
3 ; (EACH BIT IS CALLED BY BIT NUMBER) 
31 .SBTTL RM REGISTERS 
¢? ;CONTROL AND STATUS 1 REGISTER. (#00) 
125 000001 GO =] 360 BIT (BIT #0) 
126 000002 F = 2 FUNCTION CODE BIT #1 
127 000004 F2 = 4 FUNCTION CODE BIT #2 
128 000010 F3 = 10 FUNCTION CODE BIT #3 
129 000020 F4 = 20 FUNCTION CODE BIT a 
130 000040 F5 24 FUNCTION CODE BI 
{21 004000 DVA = 4000 DEVICE AVAILABLE (BIT #11) 
tz DRIVE STATUS REGISTER (RMDS1) (#01) 
135 000100 vv = 100 ;VOLUME VALID (BIT #6) 
136 000200 DRY = 200 DRIVE READY (BIT #7) 
137 000400 DPR = 400 DRIVE PRESENT (BIT #8) 
138 001000 PGM = 1000 s;PROGRAMABLE (BIT #9) 
139 002000 LST = 2000 sLAST SECTOR TRANSFERRED (BIT #10) 
140 004000 WRL = 4000 “WRITE LOCK (BIT #11) 
141 010000 MOL = 10000 “MEDIUM ON-LINE (BIT #12) 
142 020000 PIP = 20000 POSITIONING OPERATION 1N PROGRESS (BIT #13) 
143 040000 ERR = 40000 :COMPOSITE ERROR (BIT #14 
rr 100000 ATA = 100000 ATTENTION ACTIVE (BIT #5) 
129 ERROR REGISTER #01 (RMER1) (#02) 
148 000001 ILF = 1 ILLEGAL FUNCTION (BIT #0) 
149 000002 ILR =z 2 ILLEGAL REGISTER (BIT #1) 
150 000004 RMR = REGISTER MODIFICATION REFUSED (BIT #2) 
151 000010 PAR = 10 PARITY ERROR (BIT #3) 
152 000020 FER = 20 ‘FORMAT ERROR (BIT #4 
153 000040 WCF = 40 sWRITE CLOCK FAIL (BIT #5) 
154 000100 ECH = 100 ECC HARD ERROR (BIT #6) 
155 000200 HCE = 200 HEADER COMPARE ERROR (BIT #7) 
156 000400 HCRC = 400 ;HEADER CRC ERROR (BIT #8) 
157 001000 AOE = 1000 [ADDRESS OVERFLOW ERROR (BIT #9) 
158 002000 1AE = 2000 INVALID ADDRESS ERROR (BIT #10) 
159 004000 WLE = 4000 WRITE LOCK ERROR (BIT #11) 
160 010000 DTE = 10000 DRIVE TIMING ERROR (BIT #12) 
161 020000 OP] = 20000 s OPERATION INCOMPLETE (BIT #13) 
162 040000 UNS = 40000 DRIVE UNSAFE (BIT #1 
165 100000 DCK = 100000 “DATA CHECK ERROR (BIT 15) 
+ ;MAINTAINABILITY REGISTER (RMMR1) (#03) 
167 000001 DMD = 1 sDIAGINOSTIC MODE (BIT #0) ‘ 
168 000002 MCLK s 2 :MAINTAINABILITY CLOCK (BIT #1) 
169 000004 MINX = 4 sMAINTAINABILITY INDEX (BIT #2) 
170 000010 MSTCK = 10 sMAINTAINABILITY SECTOR CLOCK (BIT #3) 
171 000020 MRD = 20 sMAINTAINABILITY READ (BIT #4) 
172 000040 MwR = 40 MAINTAINABILITY WRITE (BIT #5) 


c--- 
| 
{ 


: « 
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RM REGISTE SEQ 0023 
173 000200 DISY = 200 sMAINTAINABILITY SYNC DETECTED (BIT #7) 
| 4 ;ATTENTION SUMMARY PSEUDO=REGISTER (RMAS) (#04) 
177 000001 ATO =] :DEVICE 0 (BIT #0) 
178 000002 AT] = 2 ;DEVICE 1 (BIT “#1) 
179 000004 AT2 = 4 “DEVICE 2 (BIT #2) 
180 000010 AT3 = 10 ‘DEVICE 3 (BIT #3) 
| 181 000020 ATG = 20 “DEVICE & (BIT #4) 
182 000040 ATS = 40 “DEVICE 5 (BIT #5) 
183 000100 ATS = 100 “DEVICE 6 (BIT #6) 
18% 00200 AT? = 200 [DEVICE 7 (BIT #7) 
| 186 sDESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
1 :(EACH BIT IS CALLED BY BIT NUMBER) 
| 
| a4 DRIVE TYPE REGISTER (RMDT) (#06) 
191 000001 D100 s= 1 :DRIVE TYPE NUMBER BIT 1 
192 000002 D101 = 2 ‘DRIVE TYPE NUMBER BIT 2 
| 193 000004 D102 = “DRIVE TYPE NUMBER BIT 3 
194 000010 D103 = = ‘10 [DRIVE TYPE NUMBER BIT 4 
| 195 000020 D104 = = -20 “DRIVE TYPE NUMBER BIT 5 
196 000040 D105 Ss = «40 ‘DRIVE TYPE NUMBER BIT 6 
| 197 000100 D106 = =_—«*100 ‘DRIVE TYPE NUMBER BIT 7 
198 000200 D107, ss =-.200 :DRIVE TYPE NUMBER BIT 8 
199 000400 D108 «= =_-400 [DRIVE TYPE NUMBER BIT 9 
200 004000 DRQ = 4000 [DRIVE REQUEST REQUIRED (BIT #11) 
201 020000 MOH = 20000 ‘MOVING HEAD (BIT #13) 
202 040000 TAP = 40000 ‘TAPE DRIVE (BIT #14) 
203 100000 NBA = 100000 =NOT BLOCK ADDRESSED (BIT #15) 
34 ;LOOK-AHEAD REGISTER (RMLA) (#07) 
207 000100 sc01 = =_:100 :SECTOR COUNT FIELD 0 (BIT #6) 
20 000200 $C02.s = 200 [SECTOR COUNT FIELD 1 (BIT #7) 
209 000400 $C04 = =_-400 :SECTOR COUNT FIELD 2 (BIT #8) 
210 001000 $C10 = 1000 =SECTOR COUNT FIELD 3 (BIT #9) 
| 21 002000 $€20 = 2000 SSECTOR COUNT FIELD 4 (BIT #10) ‘ 
213 004000 TRK1 = 4000 TRACK FIELD 1 (BIT #11) 
| 214 010000 TRK2 = 10000 TRACK FIELD 2 (BIT #12) 
215 020000 TRK4 = 20000 STRACK FIELD 3 (BIT #13) 
216 040000 TRK10 = =: 40000 STRACK FIELD & (BIT #14) 
317 100000 TRKeO == -100000 STRACK FIELD 5 (BIT #15) 
| 219 ZOFFSET REGISTER (RMOF) (#11) 
| 221 000001 OFDIR =1 sOFFSET DIRECTION 
222 002000 HC] = 2000 THEADER COMPARE INHIBIT (BIT #10) 
223 004000 EC] = 4 TERROR CORRECTION CODE INHIBIT (BIT #11) 
| 2h 010000 FMT16 = 10000 sFORMAT BIT (BIT #12 
| 226 DESIRED CYLINDER ADDRESS (RMDC) (#12) 
| 327 : (EACH BIT IS CALLED BY BIT NUMBER) 
| 229 :SERIAL NUMBER REGISTER (RMSN) (#14) 


A ecasheendiieelicaen:sdenenciadegilimeaiecamaeiaedavaiien 


CZRMLAO wwe FORMATTER 


RM REGIST 


Mrorererrerene fer 
NWN nw 
OOONOUE Wh 


241 


POPMEPSPPNPoPofefotfy 
SN NNO 
WWOUFLSWN—O 


040000 


100000 


100000 
040000 
010000 


176700 
000254 


000000 


000174 
000174 000000 
000176 000000 


ee 
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SEQ 0024 


; (EACH IS CALLED BY BIT NUMBER) 
:RM MAINTENANCE REGISTER #02 (RMMR2) (#15) 


SK] = 40000 ;SEEK INCOMPLETE (BIT #14) 
sERROR REGISTER #02 (RMER2) 
BSE = 100000 ;BAD SECTOR ERROR (BIT #15) 
sECC POSITION REGISTER (RMEC1) (#16) 
; (EACH BIT IS CALLED BY BIT NUMBER) 
sECC PATTERN REGISTER (RMEC2) (#17) 
; (EACH BIT IS CALLED BY BIT NUMBER) 
SOME 1ST HEADER WORD DEFINITIONS 
MF = 100000 MANUFACTURES BAD SECTOR FLAG 9 #15) 
UF = 40000 USERS BAD SECTOR FLAG (BIT #14 
FMT = 10000 :FORMAT 16 BIT MODE (BIT #12) 
~SBTTL RM DRIVER COMMANDS 
RNOP = 101 3NO  Paptaandiaa 
SEEK = 105 :$ 
RECAL. = 107 RECALIBRATE 
DRVCLR = 111 DRIVE CLEAR 
ELSE = 113 RELEASE 
OFFSET = 115 ; OFFSET 
RTC = 117 7 RETURN % CENTER LINE 
READIN = 121 :READ IN PRESET 
ACK = 123 ;PACK ACKNOWLEDGE 
SEARCH = 131 ; SEARCH 
GETREG = 141 :GET REGISTERS re 
SETFMT = 143 SET FORMAT Hf ECI OR HCI) 
SELDRV = 145 :SELECT DRIVE 
WCKD = 151 WRITE CHECK DAT 
WCKHD = 153 :WRITE 1h HEADER & DATA 
WRTDAT = 161 sWRITE DAT 
WRTHD = 163 :WRITE HEADER & DATA 
RDDAT = 171 READ DATA 
RDHD = 173 ;READ HEADER & DATA 
ABASE = 176700 
AVECT1 = 254 


-SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN a **2, HALT" 
S*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


717 
DISPREG: .WORD 0 7: SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 7:SOFTWARE SWITCH REGISTER 


--——_———  -- -- 


: 
| 


rt: a FORMATTER 


000200 
000204 


000046 
000052 
284 
286 


000024 
000044 


287 
288 


000137 007014 
000137 006776 


000210 


000210 
001100 


001100 


00 
001100 


000000 


M 2 
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-SBTTL STARTING ADDRESS(ES) 
JMP QA#START :;JUMP TO STARTING ADDRESS OF PROGRAM 
JMP a*BECIN CHANGE THE RH ADDRESS 

»SBTTL ACT11 HOOKS 


RRR AAA EEA EEE TEETER ERATE HEREEHEE AES 


‘HOOKS “overs BY ACT11 


e :SAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
“wORD 20000 332)SET LOC. 332 TO 20000 
* =$SVPC tr RESTORE 


-=1100 
-SBTTL APT PARAMETER BLOCK 


SERRA EERE AEE AKEKKKRH KKK KKK tees 
Se LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
REAR E EAA KAKKKKKKARKRRKEKReKeKKee Keke 
-$SX=.  ; ;SAVE CURRENT LOCATION 
.=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ::FOR APT START UP 
2h :POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ::POINT TO APT HEADER BLOCK 
.=.$X  3;RESET LOCATION COUNTER 
SERRA AERA REAR AEAERAREEAEEAERAEAEERENRAEEAeKeAR A ee 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD: 

SHIBTS: .WORD 0 aM HIGH BITS OF 18 BIT MAILBOX ADDR. 

$MBADR: .WORD $MAIL = ESS OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 200. N TIM OF LONGEST TEST 

SPASTM: .WORD 200. HIN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 200. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
. WORD SETEND-SMAIL/2 ;LENGTH MAILBOX-E TABLE (WORDS) 

TAB.XY=, sCMTAGSTARTING ADDRESS 


SEQ 0025 


aon 


N 
ZRMLAO_ RMOS/3/2 FORMATTER -MACRO VO03.01 11-APR-80 13:01:23 PAGE 5° 
OMMON TAGS 


SEQ 0026 
0 -SBTTL COMMON TAGS 
SRE RRA RA AEEEE ERE HEE RAAT ARAKAKKEeeKeeeeteKeketeee 
TeTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 
001174 »=TAB.LXY 
001114 SCMTAG: ::START OF COMMON TAGS 
001114 000000 «WORD 0 : 
001116 000 STSTNM: .BYTE 0 ;:CONTAINS THE TEST NUMBER 
001117 SERFLG: .BYTE 0 ::CONTAINS ERROR FLAG 
001120 000000 SICNT: .WORD 0 ::CONTAINS SUBTEST ITERATION COUNT ‘ 
001122 000000 SLPADR: .WORD 0 ;:CONTAINS SCOPE LOOP ADDRESS 
001124 000000 SLPERR: .WORD 0 ::CONTAINS SCOPE RETURN FOR ERRORS 
001126 000000 SERTTL: .WORD 0 :;CONTAINS TOTAL ERRORS DETECTED 
001130 SITEMB: .BYTE 0 :CONTAINS ITEM CONTROL BYT 
001131 SERMAX: .BYTE 1 :;CONTAINS MAX. ERRORS PER TEST 
001132 090000 SERRPC: .WORD 0 ;;CONTAINS PC OF LAST ERROR ee 
001134 000000 - SGDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘GOOD' DAT 
001136 000000 SBDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘BAD’ DATA. 
001140 000000 SGDDAT: .WORD 0 3 CONTAINS "GOOD" DATA 
001142 000000 SBDDAT: .wORD 0 ::CONTAINS "BAD' DATA 
001144 000000 WORD 0 : RESERVED=-NOT TO BE USED 
001146 000000 -WORD 0 
001150 000 $SAU"OH: .BYTE 0 AUTOMATIC MODE INDICATOR 
001151 000 SINTAG: .BYTE 0 3: INTERRUPT MODE INDICATOR 
001152 000000 WORD 0 
001154 177570 Sid WORD DSWR ; ADDRESS OF SWITCH REGISTER 
001156 177570 DISPLAY: ,WORD DDISP Hite OF DISPLAY REGISTER 
001160 177560 $TKS: 177560 :TTY KBD STATUS 
001162 177562 $TKB: 177562 Sitty KBD BUFFER 
001164 177564 $TPS: 177564 :2TTY PRINTER STATUS REG. ADDRESS 
001166 177566 $TPB: 177566 3; TTY PRINTER BUFFER REG. ADDRESS 
001170 000 $NULL: .BYTE 0 ::CONTAINS NULL CHARACTER FOR FILLS 
001171 002 SFILLS: .BY 2 ::CONTAINS # OF FILLER Bone ge REQUIRED 
001172 012 SFILLC: .BYTE 12 ss INSERT FILL CHARS. AFTER A’ "LINE FEED" 
001173 00 STPFLG: .BYTE 0 i:TERMINAL AVAILABLE'’ FLAG (BIT<07>= O=YES) 
901174 000000 STMPO: .WORD 0 ;7USER DEF INED 
001176 000000 SESCAPE :0 fie ON ERROR ADDRESS , 
001200 207 377 377 $BELL: .ASCIZ <207><377><377> ::CODE FOR BELL 
001204 077 SQUES: .ASCI] /2/ ; QUESTION MARK 
001205 015 SCRLF: .ASCI] <15> +s CARRIAGE RETURN 
001206 O12 000 SLF: eASCIZ <12> :sLINE FEED 
SRR AARAA RARE Kee eee KKKKAKKKKKeKKeteeKeKekeeeeeeneene 

.SBTTL APT MAILBOX-ETABLE 

SPARE A AAA AAR Ke Keke Ketek ee cheer eeee 

-EVEN 
001210 SMAIL: 7: APT MAILBOX 
001210 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
001212 000000 SFATAL: .WORD AFATAL eo FATAL ERROR NUMBER ‘ 
001214 000000 STESTN: .W ATESTIN ;;TEST NUMBER 
001216 000000 SPASS: . APASS§ ;;PASS COUNT 
001220 000000 SDEVCT: . ADEVCT ;;DEV NT 
001222 000000 SUNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 
00122¢ 900000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
001220 9000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 


[ 
| 


001242 
001244 


| CZRALAO eed A § pepe ov tena 
APT MAILBOX-£T 


000 
000 


000000 


000000 
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SETABLE: 
SENV: 


SENV: 
et op 


$USWR: . 
SCPUOP: 


“> 
<=z 


Bee ee Gee ee ee ee ee ee 
um 
— 


»Z@BeenweeBBeeeeeee 


ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 
AMAMS2 


SEQ 0027 
+3 APT SOoENT BrTE 


SIUSER Sw 


PE 
11/04=01, ALA 02,11/20=03,11/40=04,11/45=05 
11/70=06,PDQ=07 ,0=10 

EAL _TIME CLOCK 

ee Rat PROCESSOR 

EMORY MANAGEMENT 

ype BLK BYTE 


wv 
m—> sw wD 
v 


3:HIGH ADDRESS, ,BLK& 
MEM.LAST ADDR. 33 yhiy THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
sMIGit sy pt ae BYTE 
OER: LAST ADDRESS, mines 
3; HIGH aoeness 2 
7 MEM. TYPE ,BLK&@ 
3;MEM.LAST ADDRESS, BLK#3 
>:MIGH ADDRESS,M.S.BYTE 
7 MEM. TYPE BLK&AG 
37;MEM.LAST ADDRESS, BLK&4 
>: INTERRUPT VECTOR#41,BUS PRIORITY#1 
3; INTERRUPT VECTOR#2BUS PRIORITY#2 
3;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;;DEVICE MAP 
;; CONTROLLER DESCRIPTION WORD#1 
:; CONTROLLER DESCRIPTION WORD#2 


CZRMLAO RMOS/3/2 FORMATTER 


USER DEFINED TAGS 


0 


SSSssss 
— —) se 
pope eT an 
NwoRNRSOR 


SENSS RVSS 


001412 


001414 
002414 


176700 


00 
17754 
000100 


001222 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000000 


000000 
000000 
000000 
000000 


000000 


177777 


000106 
000102 


~ SBTTL 


SRMADR: 


SLLVEC: 


DRIVE 
SOF Sw: 
MODE : 


D 
SNGSEC: . 


LSTRK: 


ENDCYL: 
BEGCYL: . 


E : 
HEADX: 
MXDP: 


BAD16: 


¢ 3 
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USER DEFINED TAGS 


oW RD 
. WORD 
- WORD 


-BLKW 
. WORD 


176700 
5 


754 
00,102 


COOCOCCOCCOCCOOCOCOCO CCOO 


oooo o-O CcOO°O oO 


256. 
=| 


:RH/RM UNIBUS ADDRESS 


7 AD P CSR 

ZADDRESS OF KW11-P COUNTER BUFFER 
ADDRESS OF KWI1-P VECTOR 

ADDRESS OF KWIT-L orth REGISTER 
ZADDRESS OF KW1T=L VECTOR 


: CONTAINS DRIVE NUMBER SELECTED 
;SAME PARAMETER USED IN APT 
:CONTENTS ARE FOR SOFTWARE DECISIONS 
:FORMAT = =1, CHECK = 0 AND VERIFY ONLY = 1 
;READ MULTI-SECTOR = 0, READ SINGLE SECTOR = 1 
: CONTAINS My LAST TRACK = UNIT UNDER 


s TEST. - ee 


:STARTING TRACK 

; CONTAINS ap SELECTED 

:1ST WORD OF PATTERN 

:2ND WORD OF PATTERN 

:MAINTAINS # OF WRITE RETRIES MADE 
:CONTAINS LAST BAD SECTOR ON FORMAT 
CONTAINS WC FOR REMAINING SECTORS ON ERROR 
30 OR 32 SECTOR re SIZE (IN WORDS) 
72'S COMPLEMENT we’ 

oy oe: ERROR DURING Sty INDICATOR 

OR 32 SECTOR MODE INDICATOR 

:O. = 30 SECTOR “yo 

:1°S = 32 SECTOR MODE 

sAAX1RUR SECTOR ADDRESS (FOR EITHER 30 OR 32 SECTOR 
ADDRESS OF CURRENT CYLINDER 
sADDRESS OF CURRENT TRACK 

sDRIVE NUMBER OF ‘DRIVER’ ERROR MESSAGES 
sATTENTION REGISTER IMAGE FOR ‘DRIVER’ 
ZERROR MESSAGES 
ADDRESS OF **C° RETURN 
CHANGE RH/RM ADDRESS" FLAG = 1 
WRAP AROUND gen FORMAT FROM HIGH TO LOW 


APT 
ACK >0, BAD SPOT FILE AVAILABLE spe PACK 


EDIT THE BAD SPOT FILE .IF EDIT 

HEAD BIT INDICATOR 

:BIT15!B1T14 GOOD SECTOR 

:BIT15 ALONE, USER DEFINED BAD SECTOR 

;B1T14 ALONE, MFG DEFINED BAD SECTOR 

;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
: THE PROGRAM WAS LOA THE HIGH BYTE CONTAINS THE 


DED. 
:'XXDP* DEVICE CODE THE RMO5/3/2. 
:MFG 16 BIT BAD SPOT TABLE 


SEQ 0028 


CZRMLAO RMOS/3/2 FORMATTER 


USER DEFINED TAGS 


54 
005556 


005622 


177777 


177777 
000000 


000000 


000000 


000000 
000000 
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BAD 18: 


USTAB: 


USSAV: 


SECCU: 


NEXT: 


;DATA/PARAMETER 
FMTDPB: 


-BYTE 
-BYTE 


1 
256. :MFG 18 BIT BAD SPOT TABLE 


256. ;USER BAD SPOT TABLE 
256. ;USER BAD SPOT TABLE SAVE FROM PACK 


32. ;32 WORDS MAX TO STORE BAD SECTORS 


0 sFLAG, IF NEXT=-1,ALL GOOD SPOT ON 
:THE CURRENT TRACK ARE FORMATTED 


BLOCK = USED FOR ALL DRIVE OPERATION 


:ORIVE NUMBER 
;OF FSET VALUE OR FMT16, ECI, AND HCI 
; COMMAND 


:PSEL AND AI7 AND Al6 
WORD COUNT (NEG) 
:BUFFER ADDRESS 


OoDOOOCCOCCOCOCO 


M.REG ZERROR TABLE POINTER 

= 1: ERROR OCCURRED 
= 1: DONE 

-10. AND BIT 06-03 


;RH/RM REGISTERS STORED HERE AFTER AN OPERATION 


RM.REG: 


. WORD 


COCO OCCCOOCOCOOCOOoOOoOoOoOoCoooO 
. 
= 
= 
= 
> 


SEQ 0029 


CZRMLAO RMOS/3/2 FORMATTER 
USER DEFINED TAGS 


005624 
005626 


005644 
005646 


005650 
005656 
005664 
005672 
005702 
005710 
005716 
005726 
005734 
005742 
005752 


005760 
005766 


005776 
006011 
006024 
006035 


006046 


006142 


000000 
000000 


000 
000000 
000000 
000000 


005776 


006035 


006046 
006057 
006070 
006046 


006057 
006070 


NMWAFw WWW 


saatatad atat ata 
ONNoOoO OCOnmr 


022116 


045774 
047000 


052014 


001467 


000005 


001467 
000005 
000040 


001467 
000005 
000036 


001467 


aaatatad abated ad 
WwOoONMwW ——hrP 
—VIN—|— COOLS 


022414 


3 
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001330 


001332 


001364 
001366 
001346 


001364 
001366 
001346 


001364 
001366 
001346 


—+ +s 4 _» — ss 
MOO— DOCS 
SUS FRSS 


022502 


;RMECI 


0 
-WORD QO sRMEC2 
FMTX: -—BYTE 0O 
-BYTE QO 
BYTE O 
-—BYTE 0O 
» WORD -2 ;ONLY TWO WORDS FOR 
-WORD RBUF ;BUFFER ADDRESS 
.BYT 0 $ OR 
-—BYTE 0O 7 TRACK 
WORD 0 a Yt ag ADDRESS 
WORD 0 sERROR TABLE 
; DONT’ SAVE ee 
~ WORD 0 ;STATUS WORD 


;PARAMETER LIMIT POINTER TABLE 
TABLE: font 7, govee = 


or 
335° a 
pani” 7 SENDTRK, 0 


TABLE2: ws ert CYL 
PAR6,5.,DS.TRK 
PAR7, 32. PSAVSEC, 0 


TABLES: peers qe. ,0S.CYL 
PAR6,5.,DS.TRK 
PAR7, 30. PSAVSEC, 0 


TABLE4: a 823. it CYL 
PAR6,5,DS.TRK 
PARB. 36161. SAVSEC, 0 


sASCI1 MESSAGES FOR ADDRESS PARAMETERS 


PARI: ~ASCIZ @START CYL @ 
PAR2: eASCIZ @START TRK 2 
PAR3: ~ASCIZ @END CYL O 
PAR4: -ASCIZ @END TRK @ 


PARS:  .ASCI2Z AAT ae 
PAR6: .ASCIZ caer toe 

PAR7?: .ASCIZ /SECT 

PAR8: .ASCIZ /BYTE OPOSITION / 


TABCAL: .WORD FUNCT2,FUNCT3,FUNCT4,FUNCTO, 


;SECTOR BUFFER ADDRESS TABLE 


ADRTBL: .WORD BUFP ;ADDRESS OF 

ow -> ;ADDRESS OF 
-> j;ADDRESS OF 
> ;ADDRESS OF 
> ;ADDRESS OF 


SPECIAL DPB TO WRITE HEADER OF BAD SPOT 


HEADER 


FUNCT? 


SEQ 0030 


F 
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Geer DEFINED TAGS SEQ 0031 
006144 053020 -WORD BUFP+<516.#5.> ;ADDRESS OF SECTOR 5. 
006146 054024 .WORD BuFP+<516. -*6.2 SADDRESS OF SECTOR 6. 
006150 055030 “WORD BUFP+<516.*7.> ADDRESS OF SECTOR 7. 
006152 056034 .WORD BUFP+<516.#8.> ADDRESS OF SECTOR 8. 
006154 057040 “WORD BUFP+<516.*9.> ADDRESS OF SECTOR 9. 
006156 060044 -WORD BUFP+<516.#10.> :ADDRESS OF SECTOR 10. 
006160 061050 .WORD BUFP+<516.#11.> :ADDRESS OF SECTOR 11. 
006162 062054 .WORD BUFP+<516. -21g.2 TADDRESS OF SECTOR 12. 
006164 063060 .WORD BUFP+<516.#13.> :ADDRESS OF SECTOR 13. 
006166 064064 .WORD BUFP+<516.#14.> :ADDRESS OF SECTOR 14. 
006170 065070 .WORD BUFP+<516.#15.> : ADDRESS OF SECTOR 15. 
006172 066074 WORD BUFP+<516.#16.> ADDRESS OF SECTOR 16. 
006174 067100 “WORD BUFP+<516.#17.> :ADDRESS OF SECTOR 17. 
006176 070104 WORD BUFP+<516.#18.> : ADDRESS OF SECTOR 18. 
006200 071110 WORD BUFP+<516.#19.> :ADDRESS OF SECTOR 19. 
006202 072114 WORD BUFP+<516.*20.> :ADDRESS OF SECTOR 20. 
006204 073120 WORD BUFP+<516.*21.> :ADDRESS OF SECTOR 21. 
006206 074124 “WORD BUFP+<516.#22.> :ADDRESS OF SECTOR 22. 
006210 075130 “WORD BUFP+<516.#23.> :ADDRESS OF SECTOR 23. 

06212 076134 “WORD  BUFP+<516.*24.> :ADDRESS OF SECTOR 24. 
006214 077140 WORD BUFP+<516.*25.> :ADDRESS OF SECTOR 25. 

06216 100144 “WORD BUFP+<516.#26.> :ADDRESS OF SECTOR 26. a 
006220 101150 WORD BUFP4<516.#27.> :ADDRESS OF SECTOR 27. ‘ 
006222 102154 WORD BUFP+<516.#28.> :ADDRESS OF SECTOR 28. \ 
006224 103160 “WORD BUFP+<516. 229.2 [ADDRESS OF SECTOR 29. : 
006226 104164 “WORD BUFP+<516.#50.> :ADDRESS OF SECTOR 30. 

006230 105170 “WORD BUFP+<516.#31.> :ADDRESS OF SECTOR 31. 


REMAINING WORD COUNT TABLE 


006232 000402 WCTBL: .WORD 258. REMAINING WORD COUNT AFTER SECTOR 0 

006234 001004 -WORD 258.+<258.*1.> ;REMAINING WORD COUNT AFTER SECTOR 1. 
006236 001406 “WORD © 258.4<258.#2.> REMAINING WORD COUNT AFTER SECTOR 2. 
006240 002010 -WORD 258.+<258.*3.> REMAINING WORD COUNT AFTER SECTOR 3. 
006242 002412 -WORD 258.4<258.%4.> ;REMAINING WORD COUNT AFTER SECTOR 4. 
006244 003014 -WORD 258.4<258.#5.> ;REMAINING WORD COUNT AFTER SECTOR 5. 
006246 003416 -WORD 258.+<258.*6.> ;REMAINING WORD COUNT AFTER SECTOR 6. 
006250 004020 -WORD 258.4<258.#7.> REMAINING WORD COUNT AFTER SECTOR 7. 
006252 004422 -WORD 258.+4<258.*8.> ;REMAINING WORD COUNT AFTER SECTOR 8. 
006254 005024 WORD 258.4<258.#9.> ;REMAINING WORD COUNT AFTER SECTOR 9. 
256 005426 “WORD © 258.4#<258.#10.> REMAINING WORD COUNT AFTER SECTOR 10. 
006260 006030 “WORD © 258. #<258.#11.> :REMAINING WORD COUNT AFTER SECTOR 11. 
006262 006432 -WORD 258.4+<258.#12.> ;REMAINING WORD COUNT AFTER SECTOR 12. 
007034 . WORD Te apis fr et ge sREMAINING WORD COUNT AFTER SECTOR 13. 
007436 . WORD 58.#<258.#14.> ;REMAINING WORD COUNT AFTER SECTOR 14. 
006270 010040 -WORD 258.4<258.#15.> ;REMAINING WORD COUNT AFTER SECTOR 15. 
006272 010442 «WORD 258.4#<258.*16.> ;REMAINING WORD COUNT AFTER SECTOR 16. 
006274 01104 WORD 258.4<258.*17.> ;REMAINING WORD COUNT AFTER SECTOR 17. 
006276 011446 WORD 258.+<258.*18.> ;REMAINING WORD COUNT AFTER SECTOR 18. 
006300 012050 WORD 258.+<258.19.> ;REMAINING WORD COUNT AFTER SECTOR 19. 
006302 012452 -WORD 258.4+<258.#20.> ; ING WORD COUNT AFTER SECTOR 20. 
006304 013054 -WORD 258.4<258.#21.> ;REMAINING WORD COUNT AFTER SECTOR 21. 
006306 013456 WORD 258.+<258.#22.> ;REMAINING COUNT AFTER SECTOR 22. 
006310 014060 -WORD 258.4<258.*25.> ;REMAINING WORD COUNT AFTER SECTOR 23. 
006312 014462 WORD 258.+<258.#24.> ;REMAINING WORD COUNT AFTER SECTOR 24. 
006314 015064 WORD 258.+<258.#25.> ;REMAINING WORD COUNT AFTER SECTOR 25. 
006316 015466 WORD 258.+<258.*26.> ;REMAINING WORD COUNT AFTER SECTOR 26. 


CZRMLAO RMO5/3/2 FORMATTER 


USER DEFINED TAGS 


006474 


047300 
001240 
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BYTE16: 


BYTE18: . 


Oom Rnorororr 

WA On 

ooo @oOowo 
a e eo o eo 2 a - o 


SOOOooooeoeoooeocncn 
NNN NNN NNN SSNS 


POPIMPIPIARIPYINIAININININI PN PIP Nonyr 
“seeeeeeeeeeseeeee ee 


NO OB WN Ot tl tll lt 


. « 
VvvVVVvVVVv Vv 


ZOE OWNAOVFS WM OOODNOUE WhO: “ee eee 
— . . . . _ a . 


* @ 86 
* VVVVVVVV Vv 


“es ee © © © @ 
VVVVVVV Vv 


“ese © @ 
vvvvv 


oe e*eseeeeaebste#teesée ° 
VVVVVV VV VV VV VV VV VV VV VV 


;REMAINING WORD COUNT A 
REMAINING WORD COUNT A 
REMAINING WORD COUNT A 
REMAINING WORD COUNT A 
REMAINING WORD COUNT A 


eo es eo Deo Be | 
tt 
mmmmm 
DwDwD»DD 
MOmnnn 
mmmmen 
AAA 
At 4 
ooo°o°o 
DwDwDwDwD 
WWAPORPOPD 
—-COOoen 


SEQ 0032 
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USER DEFINED TAGS SEQ 0033 

06476 030740 «WORD Soe 6 Sit Se 
006500 032200 -WORD 672.4<672.#19.> 
006502 0335440 «WORD 672.+<672.*20.> 
006504 034700 WORD 672.4+<672.#21.> 

6506 036140 WORD 672.4+<672.*22.> 
006510 037400 WORD 672.4+<672.*23.> 
006512 040640 WORD 672.4+<672.*24.> 
006514 042100 WORD 672.4+<672.#25.> 
006516 043340 «WORD 672.+<672.*26.> 
006520 044600 WORD 672.4+<672.*27.> 
006522 046040 WORD 672.4+<672.*28.> 
006524 047300 WORD 672.+<672.*29.> 


-EVEN 


3 
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ERROR POINTER TABLE SEQ 0034 


0 -SBTTL ERROR POINTER TABLE 
;*THIS TABLE CONTAINS ave INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
:*LOCATION SITEMB. aie NUMBER INDICATES WHICH ITEM IN THE TABLE PERTINENT. 


S*NOTE1: 1f SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC) 
s*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM 7:POINTS TO THE ERROR MESSAGE 
3° DH :;POINTS TO THE DATA| HEADER 
;* DT >;POINTS TO THE DATA 
:* DF ::POINTS TO THE DATA| FORMAT 
, 006526 SERRTB: | 
é ERROR 1 | 
4 006526 042226 EM1 ;RH/RM INTERRUPT OCCURRED (RMAS=0) 
5 006530 043472 DH1 
6 006532 045030 DT1 
. 006534 045402 DF1 
m sERROR 2 
11 006536 042270 EM2 *sUNEXPECTED ATTENTION OCCURRED 
12 006540 043540 DH2 
13 006542 045046 DT2 
< 006544 045406 DF? 
16 ZERROR 3 
18 006546 042326 EM3 :MASSBUS PARITY ERROR (MCPE=1) 
19 006550 043612 DH3 
20 006552 045062 DT3 
$ 006554 045412 DF3 
$3 TERROR 4 
25 006556 042364 EM4 :MASSBUS PARITY ERROR (PAR=1) 
26 006560 043663 DH4 
27 006562 045076 DT4 
3 006564 045416 DF4 
Hd sERROR 5 
32 006566 000000 0 ; UNUSED 
33 006570 000000 0 
34 006572 000000 0 
44 006574 000000 0 
* sERROR 6 
39 006576 042455 EM6 ;RH/RM DIDN'T RESPOND TO ADDRESSING 
40 006600 043746 DH6 
41 006602 045114 DT6 


42 006604 045422 DF6 


CZRMLAO RMO5/3/2 FORMATTER 


_ ERROR POINTER TABLE 


43 
oe 


45 
46 006606 


49 006614 
50 
51 
52 
53 006616 
54 006620 


55 006622 
56 006624 


60 006626 
61 006630 
62 006632 
63 006634 


67 006636 


70 006644 


74 006646 


91 006674 


4 
95 006076 


045426 


042610 


045426 


042646 


045426 


042711 


045426 


042732 


045426 


042755 


045426 


043021 


J 3 
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SEQ 0035 


sERROR 7 
EM7 -; TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT 


sERROR 10 
EM10 a sDRIVE OFFLINE 


sERROR 11 
PERSISTENT DRIVE UNSAFE ERROR 


sERROR 12 
EM12 ; UNCORRECTABLE MASSBUS PARITY ERROR 


;ERROR 13 
;SOFTWARE TIMEOUT 


sERROR 14 
EM14 sDRIVE UNSAFE ERROR 


;ERROR 15 
:CONTROLLER/DRIVE ERROR DURING WRITE 


sERROR 16 
;CONTROLLER/DRIVE ERROR DURING WRITE CHECK 


| CZRMLAO RMO5/3/2 FORMATTER 


ERROR POINTER TABLE 


0 
006706 


06714 


006746 


WANA AINA RP PONU NNN Ss SS Ss Ss Ss BMOOOOCOCOOOCOCO 
WN — OS OONOA VE WN | O OONO UE WN | OOOO US WN HOD ONOUFWHR— 
So 
o 
o 
~N 
Ww 
o 


006756 
006760 


a el el le el ll ee ee ee ed oe ed 


PrP rw 


144 006766 


043073 


045442 


043151 


045446 


043207 


045426 


043260 


045426 


043330 


045512 


043400 


045472 


043422 


045512 


K 3 
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sERROR 17 


SEQ 0036 


sRETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE 


;DATA ERROR DURING WRITE CHECK 


;CONTROLLER/DRIVE ERROR VERIFYING HEADERS 


;"HCE* OR 'HCRC* ERROR VERIFYING HEADERS 


:CYLINDER FIELD.IN HEADER IS NOT CORRECT 


sWRITE CHECK ERROR 


ILLEGAL BAD SECTOR 


tr 
} 
' 
' 


CZRMLAO RMOS/3/2 FORMATTER 
| PROGRAM 


DOONAO UNSW 


START 


007054 
007060 
00 


007204 
007212 


012737 
012737 
000402 


005037 


000240 


S oooo[eo —oSo0o0c00o 
OS et at ot ot 


-—-S OoOo°Coo 


000001 
000000 


001114 
001154 
001100 


023620 


007204 
000176 
000174 
000004 


001216 
000200 


0012352 


177777 


3 
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001214 


000030 


000026 
001131 


000004 


001231 
001154 


.SBTTL PROGRAM START 
BEGIN: MOV #1,CHGADR sENABLE CHANGE OF 'RH/RM BUS ADDRESS’ 
MOV #-1,$COWl SENABLE USE OF UTILITY ROUTINES 
BR BEGIN2 
START: CLR $cDw! :DISABLE USE OF UTILITY ROUTINES 
BEGIN2: 
Ce RRR EAEREEREAEREATAEEEEEEEEEAAAAAEAAREERAEAREANRERK EHR eee 
TST1: NOP 
MOV #1,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
INC #0 ‘TTY LOOP, WAIT FOR INCREMENT 
BNE a4 ‘OF WORD 
RESET ‘CLEAR THE WORLD 
.SBTTL INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV #SCMTAG, RO ::FIRST LOCATION TO BE CLEARED 
CLR (R6)+4 ::CLEAR MEMORY LOCATION 
CMP #SWR RO NE? 
BNE - ::LOOP BACK IF NO 
#STACK,SP ::SETUP THE STACK POINTER 


ss INITIALIZE A FEW VECTORS 


B #1, SERM 
::SIZE FOR A sage Kept reGigteR. 


#SERROR ,AMEMTVEC Ft ee oO FOR ERROR ROUTINE 


MOV #340 ,aWEMTVEC+2 3:L 

MOV #STRAP ,a#TRAPVEC : TRAP VECTOR FOR TRAP CALLS 

MOV #340, a#TRAPVEC#2;:L 

MOV #SPWRON, A#PWRVEC ; POWER FAILURE VECTOR 

MOV #340,a#PWRVEC+2 ;:LEVEL 7 

CLR SESCAPE 4 THE ESCAPE ON yt ADDRESS 
MOV LLOW ONE ERROR PER TEST 


IF NOT FOUND OR IT IS 


;;EQUAL TO A FOR . SOF TWARE SWITCH REGISTER. 
MOV aWERRVEC,-(SP) #3 SAV ERROR VECTOR 
MOV #64$ ,aWERRVEC :SET UP ERROR VECTOR 
MOV #DSWR,SWR SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP ,DISPLAY $ TAND A HARDWARE DISPLAY REG iS tee 
CMP #-1,aSWR ::TRY TO REFERENCE HARDWARE SWR 
BNE 66% ;:BRANCH IF NO TIMEOUT TRAP OCCURRED 
::AND THE HARDWARE SWR 1S NOT = -1 
BR 65$ ;;BRANCH IF NO TIMEOUT 
64$: 4 #65$,(SP) 7;SET UP FOR TRAP RETURN 
658: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
MOV #DISPREG, DISPLAY 
66$: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 
CLR SPASS CLEAR PASS COUNT 
B1TB WAPTSIZE ,SENVM TEST USER SIZE UNDER APT 
BEQ 67$ :YES,USE NON-APT SWITCH 
678 MOV #SSWREG, SWR ::NO,USE APT SWITCH REGISTER 


~-SBTTL TYPE PROGRAM NAME 

:;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-| ieFIRST TIME? 
BNE as ; BRANCH IF NO 


SEQ 0037 


CZRMLAO RMO5S/3/2 FORMATTER 
TYPE PROGRAM NAME 


007254 
007260 


007320 
007362 


— ot 
ono 
So 
oO 
~“ 
Ww 
oa 
o 


007374 
007440 


0 
11273 
000420 


005227 


—o0———00-0 
w 
~ 
w 
~ 


4 ooon—oOno 


So 
— 
Sw 
wn 


000412 


005046 


007322 
000042 
001230 
001154 


000001 


177777 
007376 


001412 
000016 


000040 
000007 


001412 
000042 


007512 


001412 


001205 


177777 
007572 


001412 


M 
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000001 
000176 


001150 


000041 


001412 
001412 


» SBTTL 


70 
71 


68 


;;72$: 


$: 
$: 


;69$: 
$: 


is: 
; THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 


:PAPER TAPE (MANUAL), 


2$: 


fis: 


3$: 


fist 


PE ASCIZ STRING 


YPE 69% 
cet T VALUE FOR SOF TWARE shiten REGISTER 


708 
SENV,#1 
70$ 
SWR,#SWREG 
71$ 


71$ 
#1,$AUTOB 


fy ety UNDER XXDP/ACT? 
:;ARE WE RUNNING UNDER APT? 

; BRANCH IF Y 

+ oy Be SWITCH REG SELECTED? 


::GET SOFT- SUR SETTINGS 
:2SET AUTO-MODE INDICATOR 
T OVER THE ASCIZ 


68% 
<CRLF>@CZRMLAO - ‘AMOS 7379 FORMAT TER@<CRLF> 


#-1 
1$ 
72% 


eS TIME THRU ? 
:BR IF NO 


is TYPE ASCIZ cree 
OVER THE A 


B ;GET SCIZ 
eASCIL <CRLF>@PROGRAM REQUIRES 20K OF MEMORY@<CRLF> 


-(SP) 
XXDP, (SP) 


? GET 
<CRLF>/TO TEST DRIVE / 


-(SP) 
XXDP, (SP) 


ACTI1, 


XXDP CHAIN OR DUMP 


CLEAR ‘XXDP" LOAD DE ne STORAGE 


: LOADED FROM AN RMO5/5/ 
:BR_IF NOT 


:GET ne: INDICATOR om NUMBER 
i18 IT A VALID NUMBER ? 


NO DEFAULT TO DRIVE 0 


:CHAIN MODE OR ACT11 AUTO ACCEPT ? 


:BR IF NEITHER 
iz TYPE ASCIZ STRING 
;GET THE ASCIZ 


? 
<CRLF>/NOT TESTING DRIVE / 


CLEAR WORD ON STACK 


i SUPRESS LEADING. ZEROS 
:GET NUMBER OF DRIVES 
+ a TIME THRU HERE ? 
TYPE ASCIZ STRING 

: OVER THE ASCIZ 


CLEAR WORD ON STACK 


; CHA ER 
; SUPRESS LEADING ZEROS 


SEQ 0038 


rs 


52 007624 
7630 


00 
007714 
53 007714 
007720 
010014 
57 010014 
8 010022 
60 010026 
61 010032 
62 010034 
63 010040 
64 010046 
65 010054 
66 010054 
67 010060 
68 010062 
69 010066 
70 010070 
71 010076 
72 010104 
73 010110 
74 010112 
75 010120 
76 
77 
78 
79 
80 010126 
81 010132 
82 010136 
83 010144 
84 010150 
85 010152 
86 010160 
87 010162 
88 010170 
89 010174 
90 010176 
91 010202 
92 010206 
010210 
010212 
010215 
93 010214 
94 010220 
95 010226 
3 010226 
98 010230 
99 010234 
100 010236 
101 010249 


| CZRMLAO RMOS/3/2 FORMATTER 
|GET VALUE FOR SOFTWARE 


000431 


104401 007722 


000435 


—- oo 
o o-— 


oooo°o-So-o— OOo 
NNO NNNONNN  NNNON OSS 


032777 000004 


012737 000340 
005037 001402 
004 


104401 036354 
104401 001205 


401 056247 


007014 
025576 


001150 
045516 
001274 
001276 
001230 
001260 
001260 
001276 
001264 


001264 
001274 


, N 2 
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SWITCH REGISTER 


104401 007632 


001374 


030034 
030036 


001276 
030036 


001274 
030034 


027774 


170774 
177776 


TYPE 
BR 
-ASCIZ 
TYPE 


BR 
3379$: .ASCI2 
ig: 


bist 


5$: 


6$: TST 


78$ 


7$ 3;GET OVER THE ASCIZ 
/, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 


sz TYPE ASC 


TURN ON THE KEYBOARD INTERRUPT 


IZ STRING 


IZ STRING 
THE 


ASCIZ 
OCATION 40 AND RESTART PROGRAM. /<CRLF > 


C* ADDRESS 


UTO MODE ? 

oa ADDRESS 

TOR ADDRESS 
T'LOAD-FROM E-TABLE 


RUPT VECTOR 
ANGE IF = 0 


TOR 
REGISTER ADDRESS 
ANGE IF = 0 


79% zz TYPE ASC 
4$ ss OVER 
/WITH A WORK PACK, CLEAR L 
MSTART,CNTLC 3 "CONTROL 
PC,STKINT 

$AUTOB ;RUNNING A 
5$ 3;BR IF YES 
PC ,BUSADR ; CHECK THE 
SRMADR,RMADR ;RH/RM ADDRESS 
SRMVEC ,RMVEC ;RH/RM VEC 
SENV ;RUN UNDER 
SETVEC ;NO, DO NO 
$VECTI ;UUT INTER 
6$ 3:D0 NOT CH 
SVECT1,$RMVEC ;NEW VALUE 
SRMVEC ,RMVEC ;RH/RM VEC 
$BASE ;UUT BASE 
SETVEC 3:D0 NOT CH 
SBASE ,SRMADR NEW BASE 
SRMADR,RMADR ;RH/RM ADD 


ADDRESS 4 
RESS 


DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 
;PROGRAM WILL USE 


SETVEC: = 


23: TYPE 


PC,ST.CLE 
PC RMINIT 
u-1 ,SAVEFG 


1$ 
#SWO2,aSWR 
12$ 


2 

-BLNKS4 
DRVSTA(R4) 
5$ 

6$ 
DRVTYP(R4) 
3$ 


4% 
»NOTRM 


START THE 
sINITIALIZ 
SET THE S$ 
FIRST TIM 


:BR_ IF NO 
gy al THE DRIVE STATUS TABLE ? 


; N 
;DON'T ALL 


sDRIVE TAB 
sTYPE ‘UNI 


;CR-LF 


77 SAVE R4 


20 
;; SUPPRESS 
:TYPE 4& SP 
:CHECK DRI 
:BR IF UNS 
:BR IF ONL 


:SEE IF OF 
:BR IF NON 


CLOCK 
E THE RM DRIVER 
AVE REGISTERS FLAG 
E THRU HERE ? 


OW RM INTERRUPT 
ICE MAP 


T STATUS’ 
FOR TYPEOUT 


LEADING ZEROS 
ACE 

VE'S STATUS 
AFE 


INE 


FLINE OR NONEXISTENT 
EXISTENT 


:BR IF OFFLINE 


:DRIVE NOT 


LIN 
AN RM05/3/2 


SEQ 0039 


rc-- ooo 


i 
| 
| 
| 
| 


10 010244 


246 
252 


oo oo 
Oe 
o 


SOOOCOCOCOCOCOCOOOO OCCCOCOOCO oO 
Seay petetet ape py WWIWRRP ft 
$ oum OES Yan ofueosca 
OvoflonwoFfroen OfFNMCLO 
—- oo-o 


WAAAY RS PENI PE NINN — 
Ww 


oo oOOCOOo COO BDOOCOCCOCOOCOCOSOOSO GCOCCOO OC SCO oO 
ee ee ee ee ee er er ree ee pe ar ae ar er eee rr re ee 


a ee td td ot 


0374 
0376 
10400 
10402 
10406 
? 10410 
41 010414 
42 010420 
143 
164 
145 010422 
146 010422 
147 0104630 
148 
149 010432 
150 010436 
151 010440 
136 010446 
1535 010454 
154 019460 
155 010462 
156 
157 010466 
158 010474 


000455 


104401 
000452 


104401 
000421 
104401 
000416 
005737 
001406 


Sx Sula 


o WOOW- Ow 
_—- NWwoOon-OoOw 


ssrees 8: 


S 


oo 
——s 
hrrn 


CZRMLAO RMOS/3/2 FORMATTER 
GET VALUE FOR SOFTWARE 


4 
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SWITCH REGISTER 


036270 


036226 


036305 


003412 
001412 
036315 
036237 
030022 
036425 
027716 
036342 
000004 


036335 
000005 


036347 


000010 
001205 
001150 


000200 


001266 
001266 
177400 
001402 
016342 


000000 
000000 


001402 


010376 


010376 


010376 


001231 


001402 
001402 


7$: 
8$: 


9$: 
108: 


118: 


12$: 


sCHECK NEXT DRIVE 


:DRIVE NOT PRESENT 
CHECK NEXT DRIVE 


sDRIVE OFFLINE 
:PRINT DRIVE TYPE 


sDRIVE UNSAFE 
;PRINT DRIVE TYPE 


oer FROM THIS DEVICE ? 
;LOADED FROM THIS DRIVE ? 
;BR IF NO 
;DRIVE IS LOAD DEVICE 
:DRIVE ONLINE 

;SET DEVICE MAP 
sTYPE 2 SPACES 
:GET DRIVE TYPE 
;ASSUME ADDRESS OF RMO3 MESSAGE 
31 DEVICE AN RMO3 ? 
:BR IF YES 
sADDRESS OF RMO2 MESSAGE 
31S DEVICE AN RMO2 ? 
;BR IF YES 
;ADDRESS OF RMOS MESSAGE 


TYPE THE DRIVE TYPE MESSAGE 
MESSAGE ADDRESS HERE 


: INCREMENT DRIVE NUMBER/TABLE POINTER 
sFINISHED ? 

:BR IF NOT 

7 CRLF 


RUNNING UNDER AUTO MODE ? 
;BR IF NO 


1 re 1S RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 


1$: 


MSFX: 


BR 11% 
TYPE NOTPRS 

BR 11$ 

TYPE UNTOF F 

R &$ 

TYPE NOTSAF 

BR &$ 

TST XXDP 

BEQ 7$ 

CMPB so XP, RG 

BNE 7$ 

TYPE LODEV 

BR i1$ 

TYPE »UNTON 

BISB  ATABIT(R4),DEVMP 
TYPE »BLNKS2 

CLR 

MOvB DRVTYP(R4G) ,RO 
MOV #$RMO3, 108 
CMPB ss #4, RO 

BEQ 9$ 

MOV #$RMO2, 108 
CMPB so #'5;, RO 
BEQ 9 
MOV #SRMOS, 108 
TYPE 

WORD 0 

INC RG 

CMP R48. 
BNE 

TYPE SCRLF 

TSTB = SAUTOB 
BEQ M1 
BITB #B1T7,SENVM 
BNE s 

TST SDEVM 
BEQ 1$ 
MOV SDE VM, DEVMP 
BIC #177460, DEVMP 
TST DEVMP 

BNE MSF X 

JMP $EOP 

MOV #0, ,BEGTRK 
MOV #0. BEGCYL 


sAPT AUTO SIZING ALLOWED ? 
;BR IF NO 


:DEVICE MAP AVAILABLE FROM APT MAIL BOX 
:BR IF NONE 

;LOAD 17 FROM MAIL BOX 

;ALLOW MAX 8 DRIVES 


P 
:BR IF DRIVES ASSIGNED 
s OTHERWISE ,EXIT 


ZALWAYS STARTS FROM 0 TRACK 
ZALWAYS STARTS FROM 0 CYLINDER 


SEQ 0040 


-_——-——- -—— 
a-_ 


ae 


RMLAO RMOS/3/2 FORMATTER MACRO VO03.01 11-APR=80 13:01:23 pace 824 
T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0041 
159 010502 012737 001466 001326 MOV #822. ,ENDCYL LAST CYLINDER 
160 ata ee 001400 CLR WRAP ;SEEK FROM LO TO HI CYLINDER ADDRESS 
161 010514 005037 991306 CLR DIT ;DON'T ALLOW UPDATE OF BAD SECTOR FILE 
16¢ 010520 O12? 7 177777 001320 MOV #-1 ,MODE SET FORMAT AND VERIFY MODE 
163 0105 $ 005737 001270 TST $CDw! sAPT PARAMETER = 0 
164 0105 Barats BEQ +6 veee DEFAULT 10. -1 
165 010534 00503 091320 CLR MODE $61 10 10. CHECK MODE 
166 010540 012737 177777 001360 MOV #-1,SEC30 eet 
167 010546 005737 001272 TST $CDW2 APT PanMnTeR =0 
168 010552 001012 BNE 1$ NO,30 SECTOR 
169 010554 01273 020100 001352 MOV #<258.*32.>,WC ;COUNT OF WORDS 
170 010562 012737 157700 001354 MOV #-<258.*32.>, :wORD COUNT 
171 010570 012737 000037 001362 MOV #31. ,MAXSEC ;MAX 32 SECTOR 
17 010576 000413 BR 2$ 
174 010600 012737 017074 001352 1$: MOV #<258.*30.>,WC COUNT OF WORDS 
175 010606 012737 160704 001354 MUV #-<258.*30.>, MWC WORD COUNT 
176 010614 005037 001360 CLR SEC3 230 SEcTC 
177 010620 012737 000035 001362 MOV #29. ,MAXSEC za “30 —s 
178 010626 005737 001320 2s: TST MODE ;CHECK MODE ? 
179 010632 001006 BNE +16 on 
180 010634 012737 133331 001340 MOV #133331, PATA SINITIATE PATTERN 
181 010642 012737 133331 001342 MOV #133331,PATB =: INITIATE PATTERN 
182 010650 012737 000002 001336 MOV #2,PATSEL SWORSE CASE 
183 010656 005001 CLR RI [START WITH DRIVE NUMBER 0 
184 010660 136137 030022 001402 3%: BI1TB ATABIT(R1) ,DEVMP 31S THIS DRIVE IN DEVICE MAP ? 
185 010666 001005 BNE 4$ :BR IF YES 
186 010670 005201 INC RI ‘INCREMENT DRIVE # 
187 010672 020127 000007 CMP R1,e7 TALL DONE WITH MAP ? 
188 010676 003770 BLE 3$ :BR IF NO 
189 010700 000434 BR 7$ [DONE !! 
191 010702 010137 001222 4$: MOV R1,DRIVE sLOAD R1 mA DRIVE 
192 010706 146137 030022 001402 BICB ATABIT(R1),DEVMP ;CLEAR THE jill FROM DEVICE MAP 
193 010714 105761 027706 TSTB DRVSTA(R1) sis DRIVE ON LINE ? 
194 010720 003757 BLE 3$ “BR IF N 
195 010722 005737 001412 TST XXDP ;LOADED FROM THIS DEVICE ? 
196 010726 001403 BEQ 5$ :BR IF NO 
197 010730 123701 001412 CMPB XXDP,R1 ;LOADED FROM THIS DRIVE ? 
198 010734 001751 BEQ 3$ ‘BR IF YES 
200 010736 012702 000004 5$: MOV #&,R2 ;SETUP TRACK ee FOR AN RMO3/2 
201 010742 122761 000007 027716 CMPB so wW#7.DRVTYP(R1) =o: 1S DEVICE AN RMOS ? 
202 010750 001002 BNE rs 3 :BR IF NO 
203 010752 012702 000022 MOV #18. ,R2 OETUP TRACK PARAMETER FOR AN RMOS 
204 010756 010237 001324 6$: MOV R2,LSTRK s;SETUP LAST TRACK A 
205 010762 010237 001332 MOV R2.ENDTRK [END TRACK FOR AUTO NRODE . 
soe 010766 000137 012146 JMP m5 START TO FORMAT OR CHECK 
33 010772 000137 016342 7$: JMP SEOP sEND OF PASS FOR ALL DRIVES ON SDEVM 
210 
211 sSEE WHICH MODE THE PROGRAM IS TO BE RUN IN 
$18 *MODES ARE: ‘FORMAT & VERIFY’, ‘CHECK FORMAT OR ‘VERIFY HEADER FORMAT’ 
214 177776 M1: CLR PS 
215 001320 CLR. MODE ;SET MODE TO ‘CHECK FORMAT’ 


216 011 
319 tions 
218 911014 
219 011020 
220 Bross 
221 011030 
$s¢ 011034 
225 011042 
224 011044 
225 01: 952 
226 011054 
227 011062 
228 011064 
229 011070 
230 011072 
231 011076 
232 

233 011100 
234 011104 
235 011112 
236 
237 011114 
238 011120 
239 011124 
260 011132 
241 
242 

243 
244 
245 

246 
247 
248 
249 

50 

33 

5§ 

54 

55 

56 

57 

58 

59 


o o 
SAFARIS 
Oooooofo SCOCCOCOCoOO COCOCOOCOCOOOCOCOCOOoOO 


oS 
Oe a ee a ee ee ee ed ed ee ee el ed ed 


SSHFSE NEFSNan SEVRNFSSSEASN 


PROPER Rofo hehe hone Pfenenenonefnerener 


SO 
m—O0O 


SNINUEN FU NNO 


~ = 
oOo Ponte te anaes 
— Wet — 


CZRMLAO RMOS/3/2 FORMATTER 
GET VALUE FOR SOFTWARE 


036636 


001174 
001174 


001174 
000103 


000106 
000126 
001204 
036713 


036767 
000001 


001205 
037004 


001174 
001174 


001174 
000131 


D 4 
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000015 


001174 
001174 
001174 


001320 


001320 


000015 


001174 
001174 


001360 


001362 


001352 


001354 
001362 


3$: 
4$: 


5$: 


:FIND OUT IF 


MIA: 
1$: 


4$: 


5$: 


TYPE 
TYPE 


-MMODE 


(SP)+,STMPO 


STMPO,#CR 
3$ 


-STMPO 
#'C,STMPO 
1$ 

#'F ,STMPO 
4$ 
Ls 
, $QUES 

m1 

MCHECK 


§$ 


oMVERFY 
#1, MODE 
5$ 


A 
oMFORMT 
#-1,MODE 


FORMAT IS 10 BE IN 


» SCRLF 
»MSIZE 


(SP)+, STMPO 
we .oee 
-STMPO 
#'Y,STMPO 
#'N,STMPO 
4$ 

, SQUES 

1$ 


-MSEC30 
EC 30 


$ 

#<258.*30.>, WC 
#-<258.*30.>, MWC 
#29. ,MAXSEC 


:TYPE "PROGRAM MODE' 
;READ THE KEYBOARD 

:GET CHARACTER INPUT 
:'CR® ENTERED (DEFAULT) 


7BR YES 
; TYPE CHARACTER 
s"CHECK’ ? 


sBR IF YES 

"VERIFY ONLY ? 

; IF YES 

3;NO CORRECT ENTRY 

3; TRY AGAIN 

;TYPE REST OF ‘CHECK’ 
;GET STARTING ADDRESS 


;TYPE ‘VERIFY’ 
:SET VERIFY ONLY MODE 


;TYPE ‘'F* 
sTYPE "FORMAT & VERIFY’ 
7SET MODE TO FORMAT &@ VERIFY 


30 OR 32 SECTOR MODE 


3; CRLF 

; TYPE FORMAT MODE REQUEST 
;READ KEYBOARD 

;GET CHARACTER ENTRY 

; CARRIAGE RETURN ? 

;BR IF YE 


78 S 

: TYPE CHARACTER 
31S ENTRY A ‘y' ? 
;BR IF IT IS 

31S ENTRY A 'N' ? 
:BR IF IT IS 
;TYPE ‘?° 

;TRY AGAIN 


sTYPE ‘y° 
:TYPEOUT MODE SELECTED 
332 SECTOR INDICATOR 
TRACK SIZE IN 32 SECTOR MODE 
:2°S COMPLEMENT WORD COUNT 
sMAX SECTOR ADDRESS IN 32 SECTOR MODE 
; CONTINUE 


:TYPE OUT 30 SECTOR MODE SELECTED 
330 SECTOR INDICATOR 
:TRACK SIZE IN 30 SECTOR MODE 
:2°S COMPLEMENT WORD COUNT 
sMAX SECTOR ADDRESS IN 30 SECTOR MODE 


SEQ 0042 


4 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0043 


—_ 


273 011306 012737 000000 001334 mis: MOV #0 ,BEGTRK CLEAR STARTING TRACK ADDRESS 
274 011314 012737 000000 001330 MOV #0, ,BEGCYL CLEAR BEGINNING CYLINDER ADDRESS 
275 011322 005037 001400 CLR WRAP ;SEEK FROM LO TO HI CYLINDER ADDRESS 
276 011326 012737 000002 001336 MOV #2,PATSEL ;SETUP FOR WORST CASE PATTERN 
sie 011334 112737 177777 005540 MOVB #-1,FMTOPB SETUP INVALID DRIVE NUMBER 
344 3G0 FIND OUT WHAT DRIVE 
281 011342 012737 020262 001374 MO: MOV WC.ENTR,CNTLC ;CONTROL C ABORT ENTRANCE 
282 011350 eh ta 025576 JSR PC, STKINT INITIALIZE THE TTY KEYBOARD 
283 011354 005037 001126 CLR SERTTIL ;CLEAR THE ERROR ACCUMULATOR 
284 011360 104401 036372 TYPE »MUNIT sASK FOR DRIVE NUMBER 
285 011364 104410 RDCHR READ THE KEYBOARD 
286 011366 012637 1174 MOV (SP)+,$TMPO GET CHARACTER TYPED 
287 011372 023727 001174 000015 CMP STMPO,#CR CARRIAGE RETURN ? 
288 011400 001420 BEQ 1$ sBR IF YES 
289 911402 023727 001174 000056 CMP STMPO,#'. ;PERIOD ? 
290 011410 001414 BEQ 1$ 7BR IF YES 
291 011412 104401 001174 TYPE ,STMPO TYPE CHARACTER 
292 011416 012701 001174 MOV #STMPO,R1 GET ADDRESS OF ENTRY 
293 011422 004537 023410 JSR RS5,CK.CHR ;CHECK ONE CHARACTER 

011426 011452 2$ ILLEGAL CHARACTER 

011430 011442 1$ CARRIAGE RETURN 

011432 011452 2$ are 

011434 011442 1$ ~— 

011436 011460 3$ DIGIT 0-7 

011440 011452 2$ DIGIT 8-9 
294 011442 005002 1$: CLR R2 SELECT DRIVE ZERO 
295 011444 104401 036403 TYPE ZERO : TYPE UNIT NUMBER 0 
296 011450 000403 BR 8$ :GO SEE IF DRIVE ZERO 1S THERE 
298 011452 104401 001204 28: TYPE ,SQUES ;TYPE ‘'?° 
299 011456 000731 BR MO sASK FOR DRIVE NUMBER AGAIN 
= 01146C 010237 001222 3$: MOV R2,DRIVE SAVE DRIVE NUMBER 
302 011464 005737 001412 TST XXDP LOADED FROM THIS DEVICE ? 
303 011470 1406 BEQ 4$ 7BR IF NO 
304 011472 123702 001412 CMPB XXDP,R2 WAS THIS THE DRIVE ? 
305 021476 1003 BN 4$ :BR IF NO 
306 011500 104401 036574 TYPE -MLODEV DRIVE IS LOAD DEVICE 
4 011504 716 R M0 
309 011506 004737 020016 4$: JSR PC,ST.CLK START THE CLOCK 
310 011512 004737 030052 JSR PC,RMINIT 3G0 SEE WHAT DRIVES ARE AVAILABLE 
311 011516 012737 177777 027774 MOV #-1,SAVEFG ;SAVE THE REGISTERS 
312 011524 012737 177777 027776 MOV #-1,SEEKFG ;SET "NO OPTIMIZATION’ FLAG 
313 011532 005037 177776 CLR PS ;PRIORITY = 0 
314 011536 105762 027706 TSTB DRVSTA(R2) ;LOOK AT DRIVE STATUS 
315 011542 003015 BGT 7$ ;BR IF ONLINE 
316 011544 001403 BEQ 5$ BR IF DRIVE NOT AVAILABLE 
317 011546 104401 036554 TYPE »MUSOR 7 DRIVE UNSAFE’ 
8 011552 000673 BR M0 360 GET DRIVE NUMBER AGAIN 
320 011554 105762 027716 5$: 1S1B DRVTYP(R2) sA DRIVE PRESENT? 
321 011560 001003 BNE 6$ ;BR IF SO 
322 011562 104401 036500 TYPE ,MORNP TYPE ‘DRIVE NOT PRESENT’ 
323 011566 000665 BR MO 360 GET DRIVE NUMBER AGAIN 


324 
325 011570 
326 011574 
327 
328 011576 
329 011604 
330 011612 
331 011620 
332 011626 
333 011632 
334 011640 
335 011642 
336 011646 
337 011652 
338 011656 
339 011660 
342 011664 
011670 
011674 
011700 
343 011704 
344 011710 
345 011714 
346 
347 
348 
349 011720 
350 011724 
351 011730 
352 011732 
353 011736 
354 011744 
355 011746 
356 011750 
357 
358 011752 
359 011760 
360 011762 
361 011766 
362 
363 011770 
364 011776 
365 
366 
367 
368 012000 
369 012004 
370 012006 
371 012010 
372 012016 
373 012024 
374 
375 012026 
376 012032 
377 012034 
378 012040 
379 012046 
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000413 
023737 


000754 


012737 
000400 


005737 
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SWITCH REGISTER 


036525 


001222 


000004 
000007 


000022 
001324 
001332 


000010 


001205 


036430 
020454 


001400 
001326 


001332 
037230 


177777 


037331 


001174 
001174 


001330 


001334 


001400 


001340 
001342 


000015 


6$: 


7$: 


8$: 


-MER11 
MO 


DRIVE ,FMTDPB 
#0, BEGCYL 
#822. ,ENDCYL 
#0,BEGTRK 
#4-RO 

#7 DRVTYP(R2) 
8$ 


#18. ,R0 
RO,LSTRK 
RO, ENDTRK 
RO 


#10,R1 
RO, TABLE (R1 
RO, TABLE2(R 
RO, TABLE3(R 
RO, TABLE4(R 
#14,R1 


RO, TABLE (R1) 
$CRLF 


) 

1) 
1) 
1) 


GET ADDRESS LIMITS 


M2: 


3G0 GET 
M4: 


MGA: 


TYPE 
JSR 
TABLE 


DATA PATTERN FOR FORMAT 


ENTADR 
R4,PARENT 


WRAP 
> wheter 


3$ 


M4 


ENDTRK ,BEGTRK 
M4 


»MADRER 
M2 


#~1 ,WRAP 
M4 


»MSELP 


(SP)+, STMPO 
g20P8.C8 


"DRIVE NOT AVAILABLE‘ 
360 GET DRIVE NUMBER AGAIN 


:SETUP DRIVE ADDRESS 

sCLEAR STARTING CYLINDER ADDRESS 
;SETUP END CYLINDER 

sCLEAR STARTING TRACK ADDRESS 
:GET LAST TRACK FOR AN RMO3/2 
71S igs y AN RMO5 ? 


:GET LAST TRACK FOR AN RMO5 

;SETUP LAST TRACK AND 

END TRACK PARAMETERS 

sADJUST TRACK LIMIT 

:GET TRACK OFFSET iN PARAMETER TABLES 
SETUP TRACK PARAMETER LIMITS IN ‘'TABLE"’ 
sSETUP TRACK PARAMETER LIMITS IN ‘‘TABLE2"' 
sSETUP TRACK PARAMETER LIMITS IN ‘‘TABLE3"' 
s;SETUP TRACK PARAMETER LIMITS IN ‘‘TABLEG’' 
GET OFFSET FOR ENDTRK LIMIT IN ‘‘TABLE’’ 
4; Ay TRACK PARAMETER LIMIT 

7 CReL 


:"ENTER ADDRESS LIMITS' 


sENTER THE ADD 


+t LIMITS 


; TABLE PARAMETERS 
FROM LO TO HI CYLINDER ADDRESS 


; SEEK 
SEE IF ENDING CYL EQ TO GT THAN BEGINNING 


;BR IF ON THE SAME CYLINDER 


IF LESS 


;T0 CHECK DRIVE 


2+ on TRACK EQ OR GT THAN BEGINNING 
; Y 

: INVALID ADDRESS ENTERED 
;TRY AGAIN 


sALLOW SEEK FROM HI TO LO CYLINDER ADDRESS 


:1S 11 CHECK MODE ? 

NO, VERIFY ONLY MODE 

:NO, FORMAT & VERIFY MODE 

CHECK MODE USE WORST CASE DATA 
INITIAL THE DATA PATTERN SHIFT 3 BITS 
START TO FORMAT AND CHECK 


:G0 TYPE "SELECT PATTERN’ 
sREAD THE KEYBOARD 
;CHARCTER ENTRY 

: CARRIAGE RETURN ? 


:BR IF 


YES 


SEQ 0044 


G 4 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0045 

380 012050 023727 001174 000056 CMP STMPO,#'. ;PERIOD ? 

381 012056 001414 BEQ 1$ ;BR IF YES 

382 012060 104401 001174 TYPE -STMPO ; TYPE CHARACTER 

383 012064 012701 001174 MOV #STMPO,R1 sENTRY ADDRESS 

384 012070 004537 023410 JSR RS,CK.CHR ;CHECK ONE CHARACTER 
012074 012130 3$ ° ; ILLEGAL CHARACTER 
012076 012110 1$ ; CARRIAGE RETURN 
012100 012130 3$ nee 
012102 012110 1$ . a 
012104 012122 2$ ;DIGIT 0-7 
012106 012130 3$ sDIGIT 8-9 

385 012110 104401 036421 1$: TYPE TWO svWPE *e° 

386 012114 012702 000002 MOV #2,R2 WORST CASE PATTERN 

tl 012120 000406 BR 4$ GO SAVE PATTERN 

389 012122 020227 000002 2$: CMP R2,#2 71S # LARGER THAN 2 

390 012126 101403 BLOS 4$ ;BR IF NOT 

391 012130 104401 001204 3$: TYPE , $QUES s1vPe *?" 

$08 012134 000721 BR M4 sRETYPE LINE 

394 012136 104401 001205 4$: TYPE -$CRLF ;CR-LF 

395 012142 010237 001336 MOv R2,PATSEL ;SAVE PATTERN SELECTED 


1 
2 
3 
4 012146 
5 012146 
$ 012154 
8 012160 
9 012164 
10 012170 
11 012172 
12 012174 
iz 012200 
15 012202 
16 012206 
012206 
012212 
012214 
012215 
17 012216 
18 012222 
19 012230 
20 
21 
22 
23 
24 012230 
25 012234 
26 012242 
27 012250 
28 012256 
29 012264 
30 012270 
31 012276 
32 012504 
33 012312 
34 012320 
35 012324 
36 012326 
37 012330 
38 012334 
39 
40 012336 
41 012344 
42 012350 
43 012356 
44 012362 
45 012364 
46 012366 
47 012372 
48 012374 
a 
50 
51 
52 


000402 
104401 
013746 
104403 


100007 


CZRMLAO girth G FORMATTER 
START OF FORMA 


037505 
001222 


H & 
MACRO V03.01 11-APR-80 13:01:23 PAGE 9 


000060 


001406 


001404 


005551 
005546 


005542 


001124 
005542 


.SBTTL START OF FORMAT 
;60 TYPE "STARTING FORMAT ON DRIVE N° 

; #O.ENTR,@#TKVEC :VECTOR FOR CONTROL-0 
PS PRIORITY = 0 


1$: 


3$: 


EDIT 
MODE 
3$ 


1$ 
MSFOR 


ds 


»MSCHK 


DRIVE ,-(SP) 


1 

0 

» SCRLF 
#-1,ED1T 


SEQ 0046 


:DON’ T ALLOW UPDATE OF BAD SECTOR FILE 
;"FORMAT', ‘CHECK* OR VERIFY MODE ? 

:BR IF "VERIFY ONLY’ MODE 

;BP_IF ‘CHECK’ MODE 

;TYPE "STARTING FORMAT ON DRIVE N° 


sTYPE "STARTING CHECK ON DRIVE N° 


::SAVE DRIVE FOR TYPEOUT 
:: TYPE DRIVE NUMBER 

::G0 TYPE--OCTAL ASCII 
se TYPE 1 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 


7 CR@L 
;UPDATE BAD SECTOR FILE AT END OF PASS 


:THIS CODE RETRIEVES THE BAD SPOT FILE tof THE PACK (IF FORMATTED PACK) 
;SET UP DPB BLOCK READ CYL 822., LAST TRACK 


RETBAD: CLR 


1$: 


2$: 


3$: 


4$: 


+ + 
ERROR 


RETRY 
#-1,PACK 
DRIVE ,F 


M 
#822.,FMTIDPB+12 
LSTRK,FMTDPB+11 
FMTDPB+10 
#BUFP,FMTDPB+6 
#-<32.%258.>,FMTDPB+4 
#20, FMTIDPB+1 E 
#SETEMT, FMTDPB+2. 


RO,RMOS 


1$ 
FMTDPB+16 
2$ 


eSLPERR 


#sih CK 


SP 
WRDHD , FMTDPB+2 


RO,RMOS 


3$ 
FMTDPB+16 
4$ 


6$ 


5$ 
PC ,ERINDX 
10 


;LOOP ON ERROR ADDRESS 

RESET STACK POINT 

;RELOAD THE READ HEAD AND DATA COMMAND 
sREAD THE LAST TRACK 


;CLEAR THE RETRY FLAG 
sRESET THE — AVAILABLE FLAG 
:LOAD DRIVE 


C 
LAST TRACK 
Mn 


: 0 
;BUFFER ADDRESS 


;WORD COUNT FULL TRACK INCLUDING HEAD 


sFMT SET 
SET 16 BIT MODE 
;SET THE FORMAT BIT 


:THE COMMAND IS DONE ? 
BR IF NOT 


:BR IF QUEUE FAIL 
ALL DONE 


‘BR IF NOT 
“BR IF NO ERROR 


;SEE WHICH ERROR 


mana 
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START OF FORM SEQ 0047 
53 ; ERROR 11 
54 : ERROR 12 
55 é ERROR 13 
56 ; ERROR 14 
57 4 ERROR 21 $ 
58 "$$: JSR PC,LOP.CK SCHECK LOOP ON ERROR 
59 912376 022737 000003 001344 CMP #3 RETRY ‘DONT’ TRY OVER 3 TIMES 
66 012404 103451 BLO aE : 
61 012406 005237 001344 INC RETRY 
62 012412 000761 BR 3$ : TRY AGAIN 
64 012 005037 001176 6$: CLR SESCAPE : 
65 012420 005037 001344 CLR RETRY 
66 012424 005737 005556 TST FMTDPB+16 ; ANY ro ? 
67 012430 100437 BM] 8$ ‘BR IF 
68 012432 022737 151466 045774 CMP #151466, BUFP sON THE ANAST CYLINDER ? 
69 012440 001033 BNE & ‘BR IF NOT 
70 012442 013700 001324 MOV LSTRK,RO ‘GET LAST TRACK 
71 012446 000300 SWAB RO ;MOVE TRACK TO HI BYTE AND SECTOR [0 LO BYTE 
72 012450 020037 045776 CMP RO,BUFP+2 [ON LAST TRACK AND SECTOR 0 
73 012454 001025 BNE RS ‘BR IF NOT 
74 012456 005737 046000 TST BUFP+4 ;SERIAL NUMBER SHOULD NOT 0 
75 012462 001003 BNE 7$ ‘BR IF NOT 0 
76 012464 005737 046002 TST BUF P+6 ;SECOND WORD OF SERIAL NUMBER 
77 012470 001417 BEQ 8$ :BR IF ZERO 
78 012472 005737 046004 7$: TST BUFP+10 s THE ge WORD MUST BE 0 
79 012476 001014 BNE 8$ ‘BR IF 
80 012500 022737 177777 046006 CMP #-1,BUFP+12 : AN AL IGAMENT PACK ? 
81 012506 001002 BNE +6 ‘BR IF N 
82 012510 000137 017112 JMP REJECI 
83 012514 005737 046006 TST BUFP+12 :A DATA PACK ? 
84 012520 001003 BNE 8$ ;BR IF NOT IDENTIFIED 
85 012522 012737 000400 001404 MOV #400,PACK s;SET MFG BAD SPOT FILE AVAILABLE FLAG 
86 012530 000240 8$: NOP ‘DONE 
88 :THIS CODE INITIALIZES THE BAD16,BAD18,USTAB,USSAV TABLES 

> 90 012532 012706 001100 TABINT: MOV #STACK,SP sINITIAL STACK POINT 

91 012536 005046 CLR -(SP) : TERMINATOR 
92 012540 012746 004430 MOV #USSAV,-(SP) | :USSAV TABLE ADDRESS 
93 012544 012746 002420 MOV #BAD18,-(SP) ‘MF G 18 BIT FILE ADDRESS 
94 012550 012746 001414 MOV #BAD16,-(SP) ;MFG 16 BIT FILE t ckshe 
95 012554 012703 003424 MOV #USTAB_R3 [USER BAD SPOT FILE ADDRESS 
96 012560 012704 000004 1$: MOV #4 ,R4 sFIRST 4 WORDS SET 10 Of TEMPERARY 
97 012564 005023 2$: CLR (R3)4 
98 012566 005304 DEC R4 
99 012570 001375 BNE 2$ :BR IF NOT DONE 
100 012572 012704 000374 MOV Ad et R4 sSET -1 TO ALL THE REST LOCATIONS 
101 012576 012705 177777 MOV 
102 012602 010523 3$: MOV n. ines 
103 012604 005304 DEC : DECREMENT WORD COUNT 
104 012606 001375 BNE on ‘BR IF NOT DONE 
105 012610 012603 MOV (SP)+,R3 “NEXT TAL E 
106 012612 001362 BNE 1$ ‘LOOPING BACK IF NOT TERMINATOR 
108 
109 ;THIS CODE LOADS TABLE BAD16,BAD18,USSAV,FROM PACK (IF FORMATTED PACK) 


| a" ae J 4 
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START OF FORMA SEQ 0048 
110 . 
111 012614 005737 001404 TABLD: 1ST PACK :BAD SPOT FILE AVAILABLE FROM PACK ? 
112 012620 003451 BLE 6$ <BR IF NOT AVALIABLE 
113 012622 012702 046000 MOV #BUFP+4,R2 ‘LOAD BADI6 TABLE FIRST 
114 012626 012703 001414 MOV #BAD16,R3 ‘TABLE ADDRESS 
115 012632 012704 000400 MOV #256. ,R4 ‘WORD COUNT 
116 012636 012223 1$: MOV (R2)+.(R3)4 ‘LOAD THE BAD16 TABLE 
117 012640 005304 DEC R4 ‘BR IF NOT DONE 
| 118 012642 001375 BNE 1$ 
| 119 012644 012702 047004 MOV WBUFP+520.,R2 ;258 X 242 x 24 BUFP 
| 120 012650 012703 002420 MOV #BAD1B,R3 ‘TABLE ADDRESS 
| 121 012654 012704 000400 MOV #256. ,R4 ‘WORD COUNT 
| 122 012660 012223 28: MOV (R2)+.,(R3)4 [LOAD THE BAD18 TABLE 
| 123 012662 005304 DEC RG ‘DECREMENT WORD COUNT 
| 124 012664 001375 BNE 2$ ‘BR IF NOT DONE 
| 125 012666 012702 061054 MOV WBUFP4+44+<11.*516.>,R2 SECTOR 11. 
| 126 012672 005737 001360 TST SEC30 [FORMAT IN 16 BIT MODE 
| 127 012676 100402 BM] 3$ <BR IF IT 1S 
| 128 012700 012702 060050 MOV WBUFP+44<10.#516.>,R2  ;SECTOR 10. 
|. 129 012706 012703 004430 3$: MOV #USSAV,R3 [LOAD THE USSAV TABLE 
| 130 012710 012704 000400 MOV #256. ,R4 ‘WORD COUNT 
| 131 012714 012223 4$: MOV (R2)+.(R3)4 : 
132 012716 005304 DEC R4 
| 133 012720 001375 BNE 4$ 
134 012722 062702 000004 ADD #4 R2 :ACCESSES THE USTAB BUFFER ADD 
| 135 012726 012703 003424 MOV #USTAB,R3 ‘LOAD THE USTAB TABLE 
136 012732 012704 000400 MOV #256. ,R4 ‘WORD COUNT 
| 137 012736 012223 5$: MOV (R2)4.(R3)4 “LOAD THE TABLE 
| 138 012740 005304 DEC RG :DECREMENT THE COUNT 
| 139 012742 001375 BNE 5$ ‘BR IF NOT ALL DONE 
140 012744 000240 6$: NOP ZEXIT 
| 14g | ;THIS CODE ASK 0.P TO ENTER A SERIAL NUMBER FOR UNFORMATTED PACK 
| 144 012746 005737 001320 SERNL: TST MODE :VERIFY ONLY MODE ? 
145 012752 003162 BGT 6$ BR IF YES 
146 012754 005737 001404 TST PACK ‘BAD SPOT FILE AVAILABLE ? 
147 012760 003124 BGT 4$ ‘BR IF AVAILABLE 
| 148 012762 105737 001150 TSTB —- $AUTOB ‘RUNNING UNDER AUTO MODE ? 
| 149 012766 001144 BNE 5$ ‘BR IF YES 
151 012770 004737 025576 JSR PC, STKINT sINITIALTHE KEYBOARD 
152 012774 104401 001205 TYPE  ,$CRLF :TYPE CRLF 
153 013000 104401 040022 TYPE  [MESGI S“ENTER TWO WORDS FOR SN’ 
| 154 013004 104401 040101 1$: TYPE  - SNI : 
| 155 013010 012702 00001z MOV #10. ,R2 [MAXMUM 10 OCTAL DIGITS ALLOWED 
| 156 013014 005037 001414 CLR BADI6 ‘CLEAR THE LSW OF THE SERIAL NUMBER 
| 157 013020 005037 001416 CLR BAD16+2 ‘CLEAR THE MSW OF THE SERIAL NUMBER 
158 013024 104411 RDLIN ‘READ IN THE STRING 
159 013026 012601 MOV (SP)+,R1 SADDRESS OF THE READ IN STRING 
160 013030 105711 2s: TSTB ss (R1) :TERMINATOR OF THE INPUT STRING 
‘161 013032 001471 BEQ 3$ <BR IF IT IS 
162 013034 121127 000060 CMPB Ss (R1), #"0 “LESS THAN ASCIZ 0 ? 
163 013040 103761 BLO 1$ SENTER AGAIN IF IT IS 
164 013042 121127 000067 (MPR Ss (R11), #"7 ‘HIGH THAN ASCIX 7 ? 
165 013046 101356 BHI 1$ ‘ENTER AGAIN IF SO 
166 013050 013746 001414 MOV BAD16,-(SP) “SAVE THE LSW 


 CZRMLAO RMOS/3/2 FORMATTER 


START OF FORMA 


167 013054 
168 013062 
169 013066 
170 013072 
171 032076 
172 013102 
173 013106 
174 013114 
175 013120 
176 013122 
177 013126 
178 013130 
179 013134 
180 013136 
181 013144 
182 013150 
183 013154 
184 013160 
185 013164 
186 013172 
187 013174 
188 013200 
189 013204 
190 013206 
191 013210 
192 013212 
193 013214 
194 013216 
195 01322e 
196 013224 
197 013230 
198 013232 
199 013240 
200 013246 
201 013254 
202 013262 
203 013270 
204 013276 
205 

206 013300 
207 013304 
208 013310 
209 013314 
210 

211 013320 
212 

213 

214 

215 013322 
216 013326 
217 013330 
218 013334 
219 013336 
220 013342 
221 

222 013344 
223 013350 


T 
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ooo 


001447 


104401 
104401 


001416 
001414 


100000 


177770 
001414 


001414 


003424 


025576 
001150 


001270 


040415 
041204 
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001414 


001414 


001416 


001414 


002420 


002422 


3$: 


4$: 


5$: 


6$: 


THIS CODING TO 


CALIN: 


1$: 


NOP 


5,BAD16 


AD 
@ 70,BAD16 
AD16+2 


BAD 1642 

1$ 

BAD16+2 

1$ 
BAD16,BAD16+2 
(SP)+,BAD16 
BAD16 

BAD16 

BAD16 
#B1115,BAD16 
(R1),R 
#177770,R3 
R3,BAD16 

RI 

R2 

2$ 
(R1) 
1$ 
BAD16 
BAD16+2 

1$ 
BAD16,BAD18 
BAD16,USSAV 


BAD 1642 ,USTAB+2 
BAD16+2.USSAV+2 
BAD16+2,BAD18+2 


PROVIDE UTILITY 


PC ,STKINT 
$AUTOB 
4$ 

$CDW! 

4$ 


-MSGBLK 
eMUTLTY 


:CLEAR THE SIGN BIT OF LSW 
sROTATE THE LSW FIVE TIMES 
:T0 MOVE THE MOST SIGN DIGIT 
:10 BIT 0 TO BIT 2 


“LEFT ON THE MS DIGI 
‘SHIFT THE MSW LEFT 
‘ENTER AGAIN IF SIGN 


F THE LSW 
E OCTAL DIGIT 
T SET 


APPENDING THE DIGITS INTO MSW 
RESTORE THE LSW 
“SHIFT THE LSW LEFT ONE OCTAL DIGIT 


:CLEAR THE SIGN BIT 

;LOAD THE CURRENT READ IN DIGITS 
:LEFT ONLY ONE OCTAL DIGIT 

;APPEND THE READ IN CHARACTER TO LSW 
sADJUST THE READ IN STRING ADDRESS 
;DECREMENT ONE DIGIT COUNT 

BR IF NOT DONE 

:1F 10 DIGITS HAVE BEEN ENTERED 
:MUST BE FOLLOWED BY <CR> 

; SERIAL NUMBER MUST BE NOT 0 

;BR IF NOT 0 


SENTER AGAIN IF ZERO 
"LOAD ALL TABLE WITH THE SERIAL NUMBER , 


EXIT 
;CODE FOR AUTO MODE APT,ACT,ETC. 


; DONE 

ROUTINE ENTRIES 
sINITIALIZE THE KEYBOARD 
;AUTO BYTE SET ? 

71F SO, BRANCH 
ZALLOW ANY UTILITY ROUTINE ? 
:BR IF NOT 


sENTER MESSAGE BLOCK 
TYPE UTILITY MESSAGE 


no 
aN 
>w 
zz 
= 
Cc 

S 
iw wu 
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/2 FORMATTER 


000747 
104401 


005037 
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000064 
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177760 
006120 
001205 
000065 
001364 


001366 
001346 
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RDCHR ;READ IN THE ROUTINE NUMBER 
MOV (SP)+,$TMPO SADDRESS OF INPUT BUFFER 

001174 CMP #'0,S$TMPO ‘INPUT NUMBER LESS THAN 0 ? 
BHI 3$ ‘BR IF SO 

001174 CMPB so #4, STMPO s INPUT NUMBER LARGER THAN 4 ? 
BLO 3$ :BR IF SO 
TYPE  $TMPO ‘TYPE CHARACTER 
TYPE SCRLF CRLF 
MOV $TMPO,R1 :GET NUMBER 
BIC #177760,R1 ‘LEFT OF THREE BITS 
ASL RI :WORD INDEX 
JSR PC,@TABCAL(R1) :CALL THE DESIRED UTILITY ROUTINE 

a BR 2$ :LOOP BACK TO THE SAME POINT 

TYPE SCRLE = CR-LF 

001174 CMP #'5,STMPO :TYPE WHOLE MESSAGE AGAIN ? 
BEQ 1$ ‘BR IF YES 
CLR DS.CYL :CLEAR ALL PARAMETERS 
CLR DS.TRK 
CLR SAVSEC 

4$: 
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| START OF FORMAT 


SEQ 0051 


013462 ST1: 


MARAAASAALAALLASASERLALALALELALESEE SESE REE ESSERE EEE SESE ESSA AS 


STHIS CODE nauk UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH 


ere ne oe : VECTOR FOR “D guvessie 


PRIORITY 
eee ny i MODE ? 
2$ NO. FORMAT & VERIFY 
HDREAD :NO, VERIFY ONLY 
PATA ;CLEAR DATA PATTERN A 
PATB eGheAt DATA PATTERN B 
_ ee OF ONES 


#177777,PATA SPATA = AB 
#177777, PATB ;PATB=CD 
i SEE ‘i OF ZEROS 


erates, 
#066666,PATA :SET UP WORST CASE 


#066666,PATB SET UP WORST CASE 


WC,R3 SET UP COUNTER 

#BUFP RO SET UP MEMORY POINTER 
PATA,R1 :SET UP PATTERN IN R} 

PATB,R2 ;SET UP PATTERN IN R2 


R1,(RO)+ MOV 1ST PAT INTO MEM 


R2.(RO)¢+ [MOV 2ND PAT INTO MEM 
R3 [KEEP COUNT 
RB [KEEP COUN 
5$ :D0 IT REAIN IF R3 NOT 0 
UP FOR THE ACTUAL FORMAT 
PC, SETTBL :G0 SET UP DRIVER TABLE 
PC. SETHDR *GO INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE 
#20,FMTDPB+1 LOAD FMT16 BIT 
SECS0 :18 BIT MODE ? 

§ :BR IF NOT 

FMTDPB+1 CLEAR THE FMT16 BIT 
WSETFMT.FMTDPB#2° : LOAD FORMAT® COMMAND 
0,RM05 :START THE COMMAND 

[DPB ADDRESS 

2$ TQUEUE FULL RETURN 
FMTDPB+16 “LOOK FOR DONE 

3$ SLOOP UNTIL FINISHED 


:SET UP SECCU TABLE: BAD SPOT ON CURRENT TRACK ,RETRIEVED FROM PACK 


) 

3 

4 

Z :SECTOR IMA 

7 013462 000240 SELPAT: NOP 

8 013464 012737 020302 000060 MOV 
16 013472 005037 177776 CLR 
11 013476 005737 001320 1$: TST 
12 013502 001432 BEQ 
13 013504 002402 BLT 
oF 013506 000137 015550 JMP 
16 013512 005037 001340 2s: CLR 
17 013516 005037 001342 CLR 
18 013522 005737 001336 TST 
19 013526 001420 BEQ 
20 013530 012737 177777 001340 MOV 
21 013536 012737 177777 001342 MOV 
22 013544 022737 000001 001336 CMP 
23 013552 001406 BEQ 
24 013554 012737 066666 001340 MOV 
25 013562 012737 066666 001342 MOV 
26 013570 013703 001352 3$: MOV 
27 013574 012700 045774 MOV 
28 013600 013701 001340 4$: MOV 
29 013604 013702 001342 MOV 
30 013610 010120 5$: MOV 
31 013612 010220 MOV 
32 013614 005303 DEC 
33 013616 005303 DEC 
$ 013620 001373 BNE 
Hi :THIS CODE SETS 
38 013622 004737 017352 WRIRK: JSR 
+4 013626 004737 017556 JSR 
41 013632 112737 000020 005541 MOVB 
42 013640 005737 001360 TST 
43 013644 001002 BNE 
44 013646 105037 005541 CLRB 
“$ 0135652 112737 000143 005542 18: MOVB 
+9 013660 004057 030622 . 2s: SR 
47 013664 005540 : FMTDPB 
48 013666 000774 BR 
49 013670 005737 005556 3$: TST 
29 013674 001775 BEQ 
s 

54 013676 023727 005552 001466 WRIRKX: CMP 
55 913704 103406 BLO 
56 013706 123737 005551 001324 CMPB 
57 0135714 103402 BLO 


FMTIDPB+12,#822. 2 a A eee ? 
FMTDPB+11,LSTRK ;LAST TRACK OF LAST CYLINDER ? 
1$ :BR IF NO 


— 


es ss a 4 ss ss ss 


58 013716 
59 
o 013722 
1 013726 
€ 013732 
63 013736 
64 013740 
65 013742 
66 
67 
68 
69 013744 
70 013750 
71 013752 
72 013754 
73 013760 
74 013764 
75 013770 
76 013772 
77 013776 
78 014000 
79 014004 
80 014010 
81 014014 
B2 014016 
83 014022 
84 014026 
85 014030 
86 014036 
8/ 014040 
88 014044 
89 014046 
90 014052 
91 014054 
92 014056 
93 cranes 
oe 01406 
96 014064 
97 014070 
98 014076 
99 
00 014102 
0? 014104 
02 014110 
a Behe 
05 
06 
07 
08 
09 014116 
10 014122 
11 Biers 
12 01415 
15 014136 
14 014140 


o-o—-9o0 ov 
Soxestassuscre 


—o 
orm 
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015536 
005434 


000040 
177777 


001404 


003434 
001414 
001360 
002420 
000776 
005434 
000076 


000010 
005552 


005551 
000002 
000004 
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JMP WRTRKZ 


1$: MOV A ae fi R3 sINITILIZE THE SECCU TABLE 
MOV Ae sTOTAL 32 WORD MAX 
MOV ae LOAD ALL LOCATION TO -1 
2$: MOV R2,tRSDs 3 
DEC R4 
BNE 2$ ;BR IF NOT DONE 


[LOAD THE BAD SPOT INTO SECCU TABLE IF ANY 
WRTRKY: TST PACK :BAD SPOT FILE AVAILABLE AT ALL 
BLE 3 ‘BR IF NOT 


. 6 
CLR -(SP) ‘ELEAR UP THE DUMMY RETURN ADDRESS 
MOV #USTAB+8.,-(SP) :USER BAD SECTOR TABLE 
MOV #BAD16,R2 :R2 POINTER OF MFG BAD SPOT TABLE 
TST SEC30 :1F 18 BIT MODE CHANGE POINTER 
BM] 1$ ‘BR IF 16 BIT MODE 
MOV #BAD18,R2 : 
1$: MOV R2,R1 :R1: LAST ADDRESS OF BAD SPOT TABLE 
ADD W510. JRI : 
MOV SECU, R3 ;TABLE ADDRESS 
MOV #62. RG ;LAST ADDRESS OF THE TABLE 
ADD R3,RG 
ADD #10,R2 ‘BAD SPOT STARTS FROM THE 51H WORD OF THE FILE 
2$: CHP ETOPB+12, (R2) ZBAD SPOT ON THIS CYLINDER ? 
CMPB = FMTDPB+11,3(R2) :ALSO, ON THE SAME TRK ? 
BNE 3$ ‘BR IF NOT 
MOVB =. 2(R2), RS ‘BAD SECTOR 
MOV RS, (R3)4 ‘WORD STORAGE 
3$: ADD #4 -R2 SADVANCE TO NEXT SET 
CMP R1,R2 PALL SPOT ARE CHECKED ? 
BLO 5$ RIF IT IS 
CMP R4,R3 TEND OF SECCU TABLE ? 
BLO 4$ *REJECT THE PACK 
BR 2$ SLOOPING BACK 
4$: JSR PC RESTRT s IMPROPER MFG INFORMATION 
MOV wie SRESET MFG FILE AVAILABLE FLAG 
JMP | fr ‘AND START AGAIN 
5$: MOV (SP),R1 :NEXT TABLE 
ADD #502.,R1 SENDING OF THE TABLE 
MOV (SP)+,R2 ;BEG INNING OF THE TABLE 
BNE 2$ R IF NOT DUMMY ADD 
6$: NOP ‘DO E 


:THIS CODE SORTS THE BAD SECTO OR TABLE ‘’SECCU" IN ASCENDING ORDER 
; AND DELETES THE DUPLICATED ONES 


gorT1: MOV CCU,R2 :TOP OF THE Mae 
MOV WECCUSD., R3 ;BOTTOM_OF THE TABLE 
MOV #31. ,R4 s1CTAL 32 ELEMENT, aunt 31 TIMES 
CMP #1, (R2) :1S THE TABLE EMPTY 
BEQ 6$ BR IF IT is. QUICK ex IT 
1$: CMP (R2),2¢R2) :N TH ELEMENT : N¢1 TH ELEMENT 


;DON'T DESTROY LAST TRACK ON CYL 822. 


SEQ 0052 


oO 
mn 


FRAP AAAS MMMM BEE EE EEE EWAN IW Po fo fonononununs 2 


a ee el ee ee ee ee ce el ce ee ee ee oe ee 


ano 
—oo 
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FO SEQ 0053 
014144 103430 BLO 4$ 3;BR IF SMALLER 
014146 001406 BEQ 2s ;DELET N41 TH ELEMENT, IF SAME 
;OTHERWISE, N > N¢1 
014150 prises MOV (R2) ,=(SP) ;STORE N ELEMENT 
014152 01621 000002 MOV 2(R2), (R2) ;SWITCH N+1 ELEMENT TO N ELEMENT 
014156 012662 000002 MOV (SP)+,2(R2) sSWITCH N ELEMENT TO N41 ELEMENT 
014162 000421 BR 4$ ;ADJUST TOP POINTER 
014164 022712 177777 23: CMP #-1,(R2) ; TERMINATOR ? 
014170 001416 BEQ 4$ sBR IF IT IS 
014172 010246 MOV R2,-(SP) sSAVE TOP POINTER 
01/174 062702 000002 ADD #2,R2 sDELET 2(R2) 
014200 016222 000002 3$: MOV 2(R2),(R2)4 ; 
014204 FA 005532 CMP #SECCUF62. ,R2 ;BOTTOM OF THE TABLE ? 
014210 10137 BH] 3$ BR IF NOT 
014212 012737 177777 005532 MOV #-1,SECCU+62. ;LOAD -1 TO TABLE BOTTOM 
014220 012602 MOV (SP)+,R2 ;RESTORE THE TOP POINTER 
014222 005304 DEC RG ;DECREMENT ONE ELEMENT COUNT 
014224 001416 BEQ 6$ ;BR IF ALL DONE 
014226 062702 000002 4$: ADD #2,R2 s INCREMENT THE TOP POINTER 
014232 020302 CMP R3,R2 REACH THE BOTTOM ? 
014234 001341 BNE 1$ 3;BR IF NOT 
014236 005304 5$: DEC RG ;DECREMENT ONE SORT COUNT 
014240 001410 BEQ 6$ ;BR IF ALL DONE 
014242 012702 005434 MOV #SECCU,R2 RESET TOP POINTER 
014246 162703 000002 SUB #2,R ;UPDATE BOTTOM POINTER 
014252 022703 005434 CMP #SECCU,R3 EXIT IF TOP = BOTTOM 
014256 001401 BEQ 6$ 2 
812568 000727 BR 1$ ;SORT THE REST ELEMENTS 
014262 000240 6$: NOP 3 
014264 005037 005536 CLR NEXT FLAG, START OF A NEW TRACK 
014270 005037 001316 WRTRK1: CLR SOF Sw CLEAR ERROR COUNTER 
014274 005037 001344 CLR RETRY ;ZERO THE RETRY COUNTER 
014300 105037 005550 CLRB FMTDPB+10 ;RESTORE SECTOR 
014304 013737 001354 005544 MOV MWC, FMTDPB+4 sRESTORE wC 
014312 012737 045774 005546 MOV #BUFP.FMTDPB+6 ;RESTORE BA 
;THIS CODE TO SET UP WORD COUNT AND BUFFER ADDRESS 
014320 022737 177777 005536 WRIRKA: CMP #-1,NEXT END OF OPERATION ? 
014326 001003 BNE 1$ ;BR IF NOT 
014330 104401 040373 TYPE »MHALT 
014334 000000 HALT SOTHERWISE SOMETHING WRONG *reeee8 
014336 113737 005536 005550 1$: MOVB NEXT, FMTDPB+10 ;STARTING SECTOR 
014344 012701 005434 MOV #SECCU,R1 3R1 POINTS TO THE BAD SECTOR TABLE 
014350 022711 177777 2s: CMP #-1, (R41) [END OF TABLE ? 
014354 001513 BEQ WRTRKD sBR IF IT IS 
014356 032711 100000 BIT #B1T15,(R1) sTHE BAD SECTOR HAS ALREADY ACCESSED ? 
014362 001403 BEQ 3$ :BR IF NOT 
014 062701 000002 ADD #2,R1 sADJUST THE POINTER 
014370 000767 Bh 23 LOOPING SACK 
014372 123711 005550 3$: CMPB FMTDPB+10,(R1) ;BAD SPOT = STARTING SECTOR ? 
014376 001417 BEQ WRIRKB BR IF IT IS 
014400 103403 BLO 4% ;BR IF START SEC < BAD SPOT 
014402 104401 040373 TYPE ,MHALT 
014406 000000 HALT SOTHERWISE , SOMETHING WRONG 
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START OF FORMA SEQ 0054 
172 
173 014410 111102 4$: MOVB = (R11), R2 [UPDATE NEXT STARTING ADDRESS 
174 014412 02570¢ 001362 CMP MAXSEC,R2 [NEXT BAD SPOT IS THE LAST SECTOR? 
175 014616 00146 BEQ WRTRKF ‘BR IF LAST SECTOR 
176 014429 103471 BLO WRTRKD ‘BR IF LESS 
177 : BLOS WRTRKD ‘BR IF IT IS 
178 014422 005202 INC R [NEXT = BAD + 1 
179 O144es 010237 005536 MOV R2,NEXT ‘NEXT STARTING ADDRESS 
180 0144 052721 100000 BIS #BIT1S,(R1)* | =MARK THE ACCESSED SECTOR 
181 014434 000432 BR WRIRKC [TO SET UP WORD COUNT 
183 014436 105237 005550 WRTRKB: INCB = FMTDPB+10 s INCREMENT THE STARTING SECTOR 
184 014442 052721 100000 B1S WB1T15,(R1)* | =MARK THE ACCESSED SECTOR 
185 014446 123711 005550 CMPB  =—s- FMTDPB+10,(R1) :STILL ON ANOTHER BAD SPOT ? 
186 014452 001771 BEQ WRTRK ‘LOOP AGAIN 
187 014454 123737 005550 001362 CMPB  —s- FMT D PB+ 10, MAXSEC -IF START SECTOR > MAXSEC 
188 014462 101402 BLOS =-—*i1$ : IMPROPER MFG INFORMATION 
189 : JSR PC,RESTRT :START AGAIN AND REBUILD FMG FILE 
190 : MOV #-1, PACK SRESET THE MFG FILE AVAILABLE FLAG 
191 : JMP TABINT SRESTART POINT 
192 014464 000137 015450 JMP HSET TEXIT 
194 014470 022711 177777 1$: CMP #-1,(R1) 710 SEE IF NEXT BAD SPOT IN TABLE 
195 014474 001443 BEQ WRTRKD ‘BR IF NONE 
196 014476 111102 MOVB = (R1),R2 [UPDATE THE NEXT 
197 014500 023702 001362 CMP MAXSEC,R2 ‘BAD SECTOR IS THE LAST SECTOR ? 
198 ; BLOS  WRTRKD :BR IF IT IS 
199 014504 001430 BEQ WRTRKF 
200 014506 103436 BLO WRTRKD :BR IF LESS 
201 014510 005202 INC R :BAD SEC +1 
202 014512 010237 005536 MOV R2,NEXT [NEXT STARTING ADDRESS 
203 014516 052711 100000 BIS #BiT15,(R1) sMARK THE ACCESSED SECTOR 
205 014522 013702 005536 WRTRKC: MOV NEXT, R2 sCALCULATE THE WORD COUNT 
206 014526 162702 000002 SUB #2,R2 TENDSECTOR = NEXT = 2 
207 014532 006302 ASL R2 sWORD INDEX 
208 014534 016203 006232 MOV WCTBL(R2),R3-: ~ WORD CTR FOR SECTOR 0 TO ENDING SECTOR 
209 014540 113702 005550 MOVB FMTDPB+10.R2 :STARTING SECTOR 
210 014544 006302 ASL R2 :WORD INDEX 
211 014546 166203 006232 SUB WCTBL(R2),R3  :WORD COUNT FOR SECTOR 0 TO STARTING SECTOR 
212 014552 062703 000402 ADD #258. ,R3 sADJUST ONE SECTOR 
213 014556 005403 NEG R3 :GET THE NEAGTIVE WORD COUNT 
214 014560 010337 005544 MOV R3, FMTDPB+4 [LOAD THE WORD CTR INTO DPB 
215 014564 000432 BR WRTRKE [LOAD THE STARTING ADDRESS 
217 014566 012737 177777 005536 WRIRKF: MOV #-1,NEXT TALL DONE 
218 014574 052711 100000 BIS #B1T15,(R1) “MASK THE SECTOR 
219 014600 005302 DEC R2 [PATCH FOR THE LAST SECTOR 
220 014602 000405 BR WRIRKH PATCH 
222 014606 012737 177777 005536 WRIRKD: MOV #-1,NEXT :NO MORE BAD SPOT 
325 014612 013702 001362 MOV MAXSEC,R2 “LAST SECTOR 
$58 014616 006302 WRTIRKH: ASL R2 ;WORD INDEX 
226 014620 016203 006232 MOV WCTBL(R2),R3  :WORD CTR FOR THE ENDING SECTOR 
227 014624 113702 005550 MOVB FMTDPB+10.R2  :STARTING ADDRESS 
228 014630 006302 ASL R2 :WORD INDEX 


: 5 : 
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START OF FORMA SEQ 0055 
229 014632 166208 006232 SUB WCTBL(R2) .R3 :WORD CTR FOR THE STARTING SECTOR 
230 014636 06270 000402 ADD #258. ,R SADUUST ONE SECT OR 
231 014642 005403 NEG R [NEGATIVE WORD C 
232 014644 010337 005544 » MOV R3,FMTDPB+4 ‘LOAD THE WORD COUNT INTO DPB 
$i 014650 000240 NOP ; DONE 
235 014652 113702 005550 WRIRKE: MOVB = FMTDPB+10,R2 : STARTING ADDRESS 
236 014656 006302 ASL CATE THE BUFFER ADDRESS 
337 014660 016237 006132 005546 MOV ADRTBL(R2), entpphse sBUFFER ADDRESS 
239 014666 + 112737 000163 005542 WRIRK2: MOVB #WRTHD, FUTDPB+2 SET White HEADER & DATA COMMAND IN TBL 
240 014674 012737 014674 001124 MOV #. ,SLPERR :SET UP LOOP ON ERROR ADDRESS 
241 014702 012706 001100 MOV #STACK, SP TOAD” SthcR POIN 
242 014706 004037 030622 1$: JSR RO,RMOS [GO FORMAT A Oe ACK 
243 014712 005540 FMTDPB ADRS OF PARAMETERS = ° Je 
244 014714 000774 BR 1$ ‘WAIT FOR QUEUE IF 
245 014716 005737 005556 2$: TST FMTDPB+16 [WAIT FOR COMMAND 10” COMPLETE 
266 014722 001775 BEQ 2s [BR IF NOT DON E 
247 014724 100024 BPL ‘BR IF NO ERR 
248 014726 012737 014754 001176 MOV 3s »s io + sESCAPE TO nee 1. ERROR 
249 014734 004737 017204 JSR PC ,ERIND :SEE WHICH ERROR 
250 014740 104010 EMT 10 
251 014742 104011 EMT 11 
252 014744 104012 EMT 12 
253 014746 104013 EMT 13 
254 014750 104014 EMT 14 
255 014752 104015 EMT 15 
256 014754 006737 017304 3$: JSR PC ,LOP.CK :LOOP ON THE ERROR ? 

257 014760 022737 000003 001344 CMP #3, RETRY TERROR RETRY LIMIT ? 
258 014766 001403 BEQ 4$ ‘BR IF REACHED 
259 014770 005237 001344 INC RETRY [COUNT THE ERROR 
260 014774 000744 BR 1$ [TRY AGAIN 
261 014776 005037 001176 4$: CLR SESCAPE [CLEAR ERROR ESCAPE ADDRESS 
262 015002 005037 001344 CLR RETRY [CLEAR THE RETRY COUNTER 
264 ZCHECK THE TRACK JUST WRITTEN 
015006 112737 000153 005542 CKTRK: MOVB  #WCKHD,FMTDPB+2 ;SET WRITE CHECK HEADER & DATA COMMAND IN TBL 
267 015014 012737 015014 001124 MOV #. ,SLPERR :SETUP LOOP ON ERROR ADDRESS 
015022 012706 001100 MOV #STACK, SP :LOAD STACK POINTER 
268 015026 004037 0306c2 1$: JSR RO,RMOS CHECK THE TRACK JUST FORMATTED 
269 015032 005540 FMTDPB ‘ARS OF PARAMETER ‘; TB 
270 015034 000774 BR 1$ ‘WAIT FOR QUEUE IF 
272 015036 005737 005556 2s: TST FMTDPB+16 [WAIT FOR COMMAND 10" COMPLETE 
272 015042 001775 BEQ 23 ‘BR IF NOT DONE 
273 015064 100131 BPL 9$ “BR IF NO ERROR 
274 015066 113737 005566 001346 MOVB  RM.REG+RMDA,SAVSEC ;GET THE SECTOR ADDRESS 
275 015054 001005 BNE 3$ :BR iF NOT SECTOR 0 
276 015056 013737 001362 001346 MOV MAXSEC,SAVSEC RESTORE TO LAST SECTOR #1 
277 015064 005237 001346 INC SAVSEC SINCREMENT TO LAST SECTOR ¢1 
278 015070 005337 001346 3s: DEC SAVSEC SADJUST SECTOR TO THE aon THAT FAILED 
279 015074 012737 015376 001176 MOV WI1S,$ESCAPE ::ESCAPE TO 11$ ON ERR 
280 015102 004737 017204 JSR PC ,ERINDX SEE WHICH ERROR 
281 015106 104010 EMT 10 
282 015110 104011 EMT 11 
283 015112 104012 EMT 12 
284 015114 104018 EMT 13 
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START OF FORMA SEQ 0056 

she b18138 O33939 040000 005570 art Puce RM.REG*RMCS2 ;WRITE CHECK ERROR ? 
WCE,RM.REG*+ iW HECK ? 

287 015126 001005 BNE 4$ SBR IF SET 

288 015130 033727 005574 BIT RM.REG+RMER1,(PC)* CHECK FOR DATA ERRORS 

289 015134 130620 .WORD DCK'OPI!DTE!HCRC!HCE'FER ;DATA ERROR BITS 

290 015136 001001 BNE 4$ :BR IF SET 

291 015140 104016 EMT 16 

292 015142 005737 001316 4$: TST SOF Sw :RETRYING THE SECTOR ? 

293 015146 001413 BEQ 5$ ‘BR IF NOT 

294 015150 012737 015422 001176 MOV W12$,SESCAPE  ::ESCAPE TO 12$ ON ERROR 

295 015156 004737 020570 JSR PC RECORD :RECORD THE BAD SPOT 

296 015162 012737 100000 001410 MOV WBITIS,HEADX | :RESET THE USER BIT 

297 015170 004737 021416 JSR PC RESET SRESET THE HEADER BITS 

298 015174 104017 EMT 1 

299 015176 005037 001176 5$: CLR SESCAPE :RESET ESCAPE ADDRESS 

300 015202 032737 040000 005572 BIT WERR,RM.REG+RMDS ;DATA ERROR ? 

301 015210 001002 BNE 6$ :BR IF IT IS 

302 015212 104024 EMT 24 

303 015214 000401 BR 7$ CONTINUE 

304 015216 6$: 

015216 104020 EMT 

305 015220 013701 001346 7$: MOV SAVSEC,R1 sFAILING SECTOR ADDRESS 

306 015224 113737 001346 005550 MOVB  SAVSEC.FMTDPB+10 ;SECTOR ADDRESS 

307 015232 006301 ASL R1 sSETUP INDEX TO ADDRESS WORDS 

308 015234 016137 006132 005546 MOV ADRTBL(R1),FMTDPB+6 ;BUFFER ADDRESS FOR FAILING SECTOR 

309 015242 013701 001362 MOV MAXSEC,R1 :R1 ENDING SECTOR # 

310 0152466 005737 005536 TST NEXT ‘WHOLE TRACK DONE ? 

311 01525 100404 BM] 8$ <BR IF IT IS 

312 015254 013701 005536 MOV NEXT,R1 [LOAD CURRENT ENDING SECTOR 

313 015260 162701 000002 SUB #2,R1 SADJUST TWO SECTORS 

314 015264 006301 8$: ASL R1 ;WORD INDEX 

315 015266 016102 006232 MOV WCTBL(R1),R2  :WORDCTR FOR ENDING SECTOR 

316 015272 113701 905550 MOVB FMTDPB+10.R1 :STARTING ADDRESS 

317 015276 006301 ASL R1 sWORD COUNT 

318 015300 166102 006232 SUB WCTBL(R1),R2  :WORD CTR FOR STARTING SECTOR 

319 015304 005402 NEG R2 

320 015306 010237 001350 MOV R2, SAVWC :SAVE THE WORD COUNT 

321 015312 012737 177376 005544 MOV #-258.,FMTDPB+4 :WORD COUNT FOR 1 SECTOR 

322 015320 005237 001316 INC SOF SW S INDICATE THAT A RETRY IS IN PROGRESS 

323 015324 000137 014666 JMP WRTRK2 SREFORMAT ERROR SECTOR 

324 015330 005737 001316 9$: TST SOF Sid :RETRY IN PROGRESS ? 

325 015334 001432 BEQ 12 ‘BR IF NOT 

326 015336 022737 000002 001316 CMP #2, SOF Sw *SEE IF LAST RETRY 

327 015344 001403 BEQ 10$ ‘BR IF IT 

328 015346 005237 001316 INC SOF SW ‘INCREMENT RETRY COUNT 

329 015352 000625 BR 1$ : AGAIN 

330 015354 123737 001362 005550 10$: CMPB  MAXSEC.FMTDPB+10 ;:SEE IF LAST SECTOR ON THE TRACK 

331 015362 001417 BEQ :BR IF IT IS 

332 015364 004737 017530 JSR PC, SCAWC [SETUP TO CHECK REMAINING SECTORS ON THE TRACK 

333 015370 005037 001316 CLR SOF SW ‘CLEAR RETRY COUNTER 

34 015374 000614 BR 1$ SFINISH CHECKING THE TRACK 

335 015376 004737 017304 11$: JSR PC ,LOP.CK [CHECK FOR LOOP ON ERROR 

336 015402 022737 000003 001344 CMP #3. RETRY ‘ERROR RETRY REACHED ? 

337 015410 001404 BEQ 12$ :BR IF IT IS 

338 015412 005237 001344 INC RETRY ;COUNT THE RETRY 

339 015416 000137 015026 JMP 1$ :DO THE WRITE CHECK AGAIN 

340 015422 005037 001176 12$: CLR SESCAPE “CLEAR THE ERROR RETURN ESCAPE ADDRESS 


341 015426 


345 015444 
346 
347 015450 


348 015456 
349 015460 
350 
351 
352 015464 
353 015472 
354 015476 
355 015502 
356 015504 
357 015510 
358 015512 
359 015516 
360 015522 
361 015526 
362 015532 
363 015534 
364 
365 015536 
366 015542 
367 
368 015544 
369 
370 
371 
372 
375 
374 015550 
375 015554 
376 015556 
377 015564 
378 015566 
379 
380 015572 
381 015574 
382 015600 
383 015602 
384 015610 
385 015616 
386 
387 015622 
388 015626 
389 015630 
390 015634 
391 015636 
392 015642 
015642 
015646 
015650 
015651 


NSN NRO 


004737 
000402 


000137 
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001344 
001316 
005536 
014320 
000002 
013676 
040000 
005434 
177777 
040000 


040000 


000002 


017426 


013676 


001320 
066666 
016342 


001340 
100000 
001340 
013462 
001320 
037537 
037600 


001222 


F 
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CLR RETRY 
CLR SOF Sw 
TST NEXT 
BM] +6 
JMP WRTRKA 


163476 HSET: BIT #BIT1,aSwR 
B 1$ 


;CLEAR THE RETRY COUNTER 

CLEAR THE SOFTWARE RETRY COUNT 
;WHOLE TRACK DONE ? 

:BR IF IT IS 


4 so TRACK ? 


TART AGAIN ON THE SAME TRACK 

;RESET THE HEADER WORD OF ALL MFG 
;DEFINED BAD SECTOR 

RESET THE MFG BIT OF THE 1ST HEADER WORD 
; TABLE ar rg SECTOR ON CURRENT TRACK 

+ END OF TABLE ? 


:MAS " SECTOR BE ASSCESSED ? 


:MASK THE SECTOR TABLE 
SECTOR ADDRESS 

sRESET THE HEADER 

: INCREMENT IHE TABLE POINTER 
;LOOPING BACK 

sALL DONE 


:GET UPDATED TRACK AND CYLINDER ADDRESSES 
RETURN HERE IF DONE 

sAND DO QUICK CHECK OF DISK 

: CONTINUE WITH THE FORMAT 


;THIS CODE MAKES SURE EACH CYLINDER FORMATTED i THE 


MAY HAVE OCCURRED uaiee THE FORMAT. 
: CHECK MODE ? 
“PATTERN HAS BEEN ROTATED TO WORST CASE ? 
sEXIT 
:CLEAR THE CARRY BIT 
SROTATE PATTERN 
:SET SIGN BIT IF CARRY=1 
:FROM BIT 0 
[SET BOTH PATTERN 
sCONTINUE THE VERIFY OPERATION 

:"FORMAT', "CHECK" a, VERIFY MODE ? 

‘BR IF ‘VERIFY ONLY’ MOD 

STYPE ‘STARTING Qu! CK VERIFICATION' 

:TYPE "STARTING VERIFICATION’ 


+2 SAVE DRIVE FOR TYPEOUT 
VE _NUMBE 


JMP WRTRKX 
001410 1$: MOV #B1T14,HEADX 
MOV WSECCU,R4 
2s: CMP #=1,(R4) 
BEQ 4$ 
BIT WBIT14, (RG) 
BNE 3$ 
BIS #B1T14,(R4) 
MOVB (RG), SAVSEC 
JSR PC, RESET 
3$: ADD #2,R4 
BR 2$ 
4$: NOP 
WRTRKZ: JSR PC, TRKTST 
BR HDRE AD 
JMP WRTRKX 
[PROPER CYLINDER ADDRESS. THE PROGRAM IS LOOKING F 
;POSSIBLE POSITIONER ERRORS THAT 
HDREAD: TST MODE 
BNE 1$ 
001340 CMP #066666,PATA 
BNE +6 
JMP $EOP 
CLC 
ROR PATA 
BCC +10 
001340 BIS WBITIS,PATA 
001342 MOV PATA, PATB 
JMP $11 
1$: TST MODE 
BGT $ 
TYPE MSQVER 
BR 8s 
28: TYPE »MSVER 
MOV DRIVE ,-(SP) 
TYPOS 
BYTE 1 
BYTE 0 


3 DIGIT(S) 
;; SUPPRESS LEADING ZEROS 


SEQ 0057 


G 5 
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393 015652 104401 001205 TYPE » SCRLF ; CRLF 

394 015656 005037 001356 CLR HEDERR CLEAR HEADER os ERROR INDICATOR 
395 015662 004737 017352 JSR PC,SETTBL :G0 SET UP DRIVER TABLE 

396 015666 004737 017556 JSR PC, 1 Ms GO SET UP HEADERS IN CORE 

397 015672 012700 045774 4$: MOV #BUFP,RO :GET STARTING ADDRESS OF EXPECTED HEADERS 
398 015676 012701 106174 MOV #BUFV,RI GET STARTING ADDRESS OF RECIEVED HEADERS 
399 015702 010137 005546 MOV R1-FMTDPB+6 SET UP BUFFER ADDRESS 

400 015706 112737 000173 005542 MOVB #RDHD,FMTDPB+2 SET UP-READ HEADER & DATA COMMAND 
401 015714 015737 001354 005544 MOV MWC, FATDPB+4 ;SETUP WORD FOR VERIFY ONLY MODE 
402 015722 005037 001322 CLR SNGSEC sSETUP MULTI“SECTOR READ FLAG 

403 015726 005737 001320 TST MODE VERIFY MODE ONLY ? 

404 015732 003005 BGT 6$ :BR IF YES 

405 015734 012737 177776 005544 5$: MOV #-2,FMTDPB+4 SETUP WORD COUNT FOR QUICK VERIFY 
rr 015742 005237 001322 INC SNGSEC ;SETUP SINGLE SECTOR READ 

408 015746 012737 015746 001124 6$: MOV #. ,SLPERR SETUP LOOP ON ERROR ADDRESS 

409 015754 004037 030622 7$: JSR RO,RMOS GO READ HEADER 

410 015760 005540 FMTDPB sADRS OF our ik @ hee 

411 015762 000774 BR 7$ :WAIT IF QUEUE IS F 

412 015764 005737 005556 8$: TST FMTDPB+16 ;WAIT FOR COMMAND 10. COMPLETE 

413 015770 001775 . BEQ 8$ :BR IF NOT DONE 

sis 015772 100044 BPL 11$ :BR IF NOT ERROR 

416 015774 012737 016170 001176 MOV #13%,SESCAPE apse TO i ON ERROR 

417 016002 004737 017204 JSR PC,ERINDX SEE WHICH E 

418 016006 104010 EMT 10 DRIVE OFFLINE. 

419 016010 104011 EMT 11 PERSISTENT DRIVE UNSAFE ERROR 

420 016012 104012 EMT 12 ; UNCORRECTABLE MASSBUS PARITY ERROR 
421 016014 104013 EMT 13 SOFTWARE TIMEOUT 

ose 016016 104014 EMT 14 DRIVE UNSAFE ERROR 

424 016020 032737 040000 005572 BIT WERR,RM.REG+12 ;ANY DRIVE ERRORS ? 

425 016026 001426 BEQ 11$ :BR IF NO 

426 016030 022737 000200 005574 CMP WHCE,RM.REG*+14 ;1S 11 A HEADER COMPARE ERROR ? 
427 016036 001411 BEQ 9$ BR IF YES 

428 016040 032737 000400 005574 BIT MHCRC,RM.REG+14 ; 2S IT - HEADER CRC ERROR ? 

429 016046 001005 BNE 9$ F 

430 016050 022737 100000 005622 CMP #BSE ,RM.REG+42 ‘BAD SECTOR ERROR ? 

431 016056 001406 BEQ 10$ :BR IF YES 

432 016060 104021 EMT 21 

433 016062 005037 001176 9$: CLR SESCAPE ;CLEAR THE ERROR ESCAPE ADDRESS 
434 016066 104022 EMT 

or? 016070 004737 017304 JSR PC,LOP.CK CHECK FOR LOOP ON ERROR 

437 016074 44 F: 10$: NOP 

438 016076 005737 001322 TST SNGSEC eye READING SINGLE SECTORS ? 
439 016102 001714 BEQ 5$ R NO 

440 016104 052711 140000 11$: BIS WME SUF, CRI) :SET NG AND USER SECTOR GOOD BITS 
441 016110 011037 045770 MOV (RO) ,RBUF +4 :GET EXPECTED CYLINDER HEADER 

442 016114 011137 045764 MOV (R1) , RBUF :GET RECIEVED CYLINDER HEADER 

443 016120 023737 045764 045770 CMP RBUF ,RBUF +4 SEE IF CYL READ EQUALS CYL EXPECTED 
444 016126 001402 BEQ 12% :BR IF CYL CORRECT 

445 016130 104023 EMT 23 

ry 016132 000416 BR 13% 

448 016134 005737 001320 12%: TST MODE :VERIFY ONLY MODE ? 

449 016140 003451 BLE 17% :BR IF NO 


arn 
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450 016142 016037 000002 045772 MOV 2(RO),RBUF*6 GET EXPECTED TRACK/SECTOR HEADER 
451 016150 016137 000002 045766 MOV 2(R1),RBUF+2 GET RECIEVED TRACK/SECTOR HEADER 
re 016156 023737 045766 045772 CMP RBUF+2,RBUF#6 1S TRACK AND SECTOR CORRECT ? 
453 016164 001405 BEQ 15$ ‘BR IF YES 
434 016166 104007 EMT 7 
456 016170 004737 017304 13$: JSR PC,LOP.CK :CHECK FOR LOOP ON ERROR 
437 016174 000137 016342 14$: MP SEOP [END OF VERIFY 
459 016200 000240 ‘ 15$: NOP 
460 016202 123737 005550 ,001362 CMPB  —s FMD PB+10, MAXSEC ;DONE WITH ALL SECTORS ? 
461 016210 001412 BEQ :BR IF YES 
462 016212 105237 005550 INCB  —s FMTDPB+10 [UPDATE SECTOR ADDRESS 
463 016216 062700 001004 ADD #516.,R0 ‘ADJUST POINTER TO NEXT EXPECTED HEADER 
464 016222 005737 001322 TST SNGSEC :READING ONE SECTOR AT A TIME 
465 016226 001252 BNE 7$ ‘BR IF ¥ES 
466 016230 062701 001004 ADD #516.,R1 ;ADJUST POINTER TO NEXT RECIEVED HEADER 
467 016234 000723 BR 11$ O COMPARE NEXT SECTOR 
468 016236 105037 005550 16$:  CLRB - FMTDPB+10 :START AT SECTOR 0 
469 016242 105237 005551 INCB —s« FMTDPB411 ‘INCREMENT TRACK NUMBER 
470 0162466 123737 005551 001332 CMPB ss FMTDPB+11,ENDTRK sWAS IT LAST TRACK ? 
471 016254 101003 BHI 17$ :BR IF YES 
472 016256 006737 017756 JSR PC ,UPDTRK [UPDATE TRACK ADDRESS IN BUFFER 
473 016262 000603 BR 4$ :GO READ NEXT TRACK 
475 016264 113737 001334 005551 17%:  MOVB  BEGTRK,FMTDPB+11 :GET BEGINNING TRACK ADDRESS 
476 016272 005737 001400 TST WRAP ; SEEKING: FROM HI TO LO CYLINDERS ? 
477 016276 001407 BEQ 18$ R IF NO 
478 016300 005337 005552 DEC FMTDPB+12 :DECRERENT oGYL ANDER ADDRESS 
479 016304 023737 005552 001326 CMP FMTDPB+12,ENDCYL ONE WITH VERIFY ? 
480 016312 002730 BLT 14$ :BR IF vis 
481 016314 000406 BR 19$ 
482 016316 005237 005552 18$: INC FMTDPB+12 ; INCREMENT CYLINDER ADDRESS BEING CHECKED 
483 016322 023737 005552 001326 CMP FMTDPB+12,ENDCYL :DONE WITH VERIFY ? 
484 016330 101321 BH] 14$ R IF YES 
485 016332 004737 017644 19$: JSR PC ,UPDCYL “UPDATE CYLINDER ADDRESS IN BUFFER 
486 016336 000137 015672 MP 4$ [GO READ NEXT CYLINDER 
567 
568 .SBTTL END OF PASS ROUTINE 
SAREE AERA E AEA 
: INCREMENT THE PASS NUMBER ($PASS) 
;#1F THERES A MONITOR GO TO IT 
:*]F THERE ISN'T JUMP TO DONE 
016342 SEOP: 
016342 005737 001406 1$: 1ST EDIT [UPDATE LAST TRACK ? 
016346 001537 BEQ 8$ *BR IF NO 
016350 005037 001344 CLR RETRY [CLEAR RETRY COUNT 
016354 004537 020710 JSR RS, SORT2 SSORT THE USTAB IN ASCENDING FORM 
016360 003434 USTAB+B. | STABLE ENTRY POINT 
016362 004737 021050 JSR TEXT ‘SET UP THE BUFFER 
016366 112737 000020 005541 MOVB W56. ER TDPB+t 716 BIT MODE 
016374 112737 000143 005542 MOVB  &#SETFMT, FMTDPB+2 :SET FORMAT COMMAND 
016402 004037 030622 2$: JSR RO, RMOS :CALL THE DRIVER 
016406 005540 FMTDPB 
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END OF PASS ROUTINE SEQ 0060 
016410 000774 BR 2$ LOOP. IF QUEQU FAILS 
016412 005737 005556 38: 1ST FMTDPB+16 ‘ALL DONE ? 
016416 001775 BEQ 3$ ‘BR IF NOT 
016420 012737 001466 005552 MoV #822.,FMTDPB+12 :CYLINDER ADDRESS 
016426 113737 001324 005551 MOVB  =—LSTRK, FATDPB+11 STRACK NUMBER 
016434 105037 005550 CLRB ss FMTDPB+10 SECTOR 0 
016440 012737 157700 005544 MOV #-<258.*32.>,FMTDPB+4  ;WORD COUNT 
016446 012737 045774 005546 MOV WBUFP,FMTDPB46 ;BUFFER ADDRESS 
016454 112737 000163 005542 MOVB #WRTHD , FMTDPB+2 ;WRITE HEAD AND DATA COMMAND 
016462 000240 4$: NOP 
016464 004037 030622 JSR RO,RMOS :CALL THE DRIVER 
016470 005540 FMTDPB 
016472 000773 BR 4$ ;LOOP IF QUEUE FAILS 
016474 005737 005556 5$: TST FMTDPB+16 ;ALL DONE ? 
016500 001775 BEQ 5$ ‘BR IF NOT. 
016502 100061 BPL 8$ ZEXIT IF NO ERROR 
016504 012737 016532 001176 MOV #63, SESCAPE sERROR ESCAPE ADDRESS 
016512 004737 017204 JSR PC,ERINDX sERROR INDICATOR RT. 
016516 104010 EMT 10 
016520 104011 EMT 11 
016522 104012 EMT 12 
016524 104013 EMT 13 
016526 104014 EMT 14 
016530 104015 EMT 15 
016532 000240 6$: NOP 
016524 005237 001344 INC RETRY : 
916540 022737 000003 001344 CMP #3, RETRY ZOVER 3 TIMES ? 
016546 101345 BHI 4$ :BR IF IT IS 
016550 000137 017162 JMP REJCT3 WRITE THE LAST TRACK FAILS THREE TIMES 
016554 122737 000037 005550 CMPB so#31.,FMTDPB+10 :LAST SECTOR 
016562 003431 BLE RS ‘BR IF ALL SET 
016564 113737 005566 001346 MOVB RM.REG+RMDA, SAVSEC ;FOUND THE FALLING SPOT 
016572 001003 BNE 7$ :BR IF NOT 0 
016574 012737 000037 001346 MOV #31. ,SAVSEC s THE . se 1S A BAD SECTOR 
016602 113737 001346 005550 /7$: MOVB SAVSEC, FMTDPB+10 OAD THE NEW STARTING SECTOR 
016610 113701 001346 MOVB  SAVSEC.R1 SLOAD THE WORD CTR AND BUFFER 
016614 006301 ASL R1 ‘WORD INDEX 
016616 016137 006132 005546 MOV ADRTBL(R1), FMTDPB+6 ;BUFFER — 
016624 012737 157700 005544 MOV #~<258.*32.>,FMTDPB+4 — ;WORD COUN 
016632 066137 006232 005544 ADD WCTBL(R1), FMTDPB+4 WORD COUNT 
016640 005037 001344 CLR RETRY SRESET THE RETRY FLAG 
016644 000706 BR 4$ [BR BACK 
016646 005737 001320 8$: TST MODE ;FORMAT, CHECK OR VERIFY MODE 
016652 003007 BGT 10$ ;BR IF VERIFY ONLY MODE 
016654 001403 BEQ 9$ [BR IF CHECK 
016656 104401 037633 TYPE MF CMPT s;FORMAT COMPLETE 
016662 000405 BR 
016664 104401 037656 9$: TYPE MCCMPT :CHECK COMPLETE 
016670 000402 BR 11$ 
016672 104401 037700 10$: TYPE  ,MVCMPT VERIFY COMPLETE 
016676 104401 037723 11$: TYPE NUMERR *TOTA L ERRORS 
016702 013746 001126 MOV $ERTIL,-(SP) SAVE SERTTL FOR TYPEOU 
016706 104405 TYPDS 3G0 TYPE--DECIMAL ASELL pom SIGN 
016710 005037 001126 CLR SERTIL ‘CLEAR THE ERROR ACCUMULATOR 


CZRMLAO RM05/3/2 + pepe sissoe 


END OF PASS ROUTIN 


572 


MOANA 
SAN NN 


DONO Ew 
Sooo oCOoOCoCOoo Coo COO SOOO S00O SCOCOO BDOOCCOCOCOCOOCOOOCOCOOOCOCOOOCOCOCOO 


—* 2 4 Oo ae te —# at et se a i a at et a ot ot ow = ws ws “ss ss 


SaNNF ONS NS ONS NS ONS ONS ONS 


580 


NO 
~ 
o 


006 


SAN ON 
ooo So 


oo oo 


oo ooCooo oO 
Ss Wey w 
o FNONM O&O 


— 1 a ons — es o 
SSS¥F SSNonw SES FB 


000240 


000137 
017006 


105737 


? 
000137 
032777 
001002 
000137 


012706 


000137 
012737 
012737 
000137 
005237 
005237 
000775 
104401 
104401 
104401 
000000 
000137 
104401 


104401 


037753 
001402 


001216 


001216 
100000 


000042 


001150 
001402 
010466 
000001 
011342 


001100 
001320 


040373 
007020 


001205 
005551 


040375 
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001216 


162120 


001340 


001342. 


001366 


128: 


SEOPCT: . 


SENDCT: . 
$GET42: 


SENDAD: 


SDOAGN: 
$RTNAD: 


DONE: 


138: 


148: 


15$: 


REJEC1: 


REJCT2: 


TYPE 
MOVB 
EMT 

TYPE 


SPASS 
#100000, $PASS 
(PC)+ 


1 
$DOAGN 
ee 


a#42,R0 
$DOAGN 
PC, (RO) 


a(PC)+ 
DONE 


$AUTOB 
13% 

DEVMP 

16$ 

MSF Xx 
#SWO,aSWR 
14% 

MO 


MSTACK,SP 
MODE 


- SCRLF 
»MESG4 
»MHALT 


BEGIN2 


, SCRLF 
severest 908. tae 


»MHALT 


sALL_ ASSIGNED t bale DONE ? 
;TO FORMAT NEXT DRIVE 
;RESTORE THE PASS COUNT 


TY don THE PASS NUMBER 
3 DON'T > ALLOW A NEG. NUMBER 


ss VES 
;:RESTORE COUNTER 


;;GET MONITOR ADDRESS 
; BRANCH IF NO MONITOR 
;:CLEAR THE WORLD 

::GO0 TO MONITOR 

7; SAVE ROOM 


3; RETURN 


oe IN AUTO MODE ? 
s ARE 7 DRIVES DONE ? 


ENEXT DRIVE FROM APT DEVICE MAP 


;SEE IF SWR O SET 
:BR IF SET 
:ASK FOR NEXT DRIVE 


:RESET STACK ———— 
: CHECK MODE 


YES 
D0 THE FORMAT OR CHECK AGAIN 
INITIATE PATTERN 


: INITIATE PATTERN 
;LOOP ON CHECK 


GARBAGE CODE FOR APT 


; TRACK NUMBER FOR ERROR LOG 


SEQ 0061 
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END OF PASS ROUTINE SEQ 0062 
603 017154 000000 HALT 
604 017156 000137 007020 JMP BEGIN2 
606 017162 104401 001205 REJCT3: 1 PE SCRLF 
607 017166 104401 042126 TYPE §,MESG17 
608 017172 104401 040373 | TYPE | MHALT 
609 017176 000000 HALT 
610 017200 000137 007020 JMP BEGIN2 
612 SPRUE AAA A EEE eee eee eee eeeeeeeeeeeeeeeAe eee 
613 
614 .SBTTL SUPPORT SUBROUTINES 
616 CRAKE REAR EEEEHETEERARHEKERKKEKEEK EARS 
617 
618 :THIS ROUTINE DETERMINES THE ERROR TYPE 
620 0172046 010146 ERINDX: MOV R1,-(SP) iSTORE RI 
621 017206 005001 CLR RI LEAR R1 
622 017210 033727 005556 BIT FMTDPB+16,(PC)+ ;CHECK ERROR TYPE 
623 017214 060006 WORD FATDPBS TO, <PCDs ECE DRIVE OF FLINE 
624 017216 001025 BN é :BR IF OFFLINE 
625 017220 033727 005556 BIT FMTDPB+16,(PC)+ = CHECK ERROR TYPE 
626 017224 010000 .WORD BIT12 ‘DRIVE PERSISTENTLY UNSAFE 
627 017226 001020 BNE 4$ BR IF UNSAFE 
628 017230 033727 005556 BIT FMTDPB+16,(PC)* ;CHECK ERROR TYPE 
629 017234 006000 -WORD BIT11'BITIO :UNCORRECTABLE | NAS SBUS PARITY ERROR ? 
630 017936 001013 BNE 3$ R IF PARITY ERROR 
631 017240 033727 005556 BIT FMTDPB+16,(PC)+ :CHECK ERROR OPE 
632 017244 001400 WORD BITO9'!BI1TO8 ‘SOFTWARE TIMEOUT ? 
633 017246 001006 ‘ BNE 2$ ‘BR IF YES 
634 017250 033727 005556 BIT FMTDPB+16, (PC)+ + CHECK ERROR TYPE 
635 017254 000020 .WORD BIT04 ' : DRIVE UNSAFE ERROR ? 
636 017256 001001 BNE 1$ R IF YES 
637 017260 005201 INC RI NCREMENT THE RETURN INDEX 
638 017262 005201 1$ INC RI S INCREMENT THE RETURN INDEX 
639 017264 005201 2$ INC R1 S INCREMENT THE RETURN INDEX 
640 017266 005201 3$ INC 4 R1 S INCREMENT THE RETURN INDEX 
641 017270 005201 i$ INC RI ‘INCREMENT THE RETURN INDEX 
642 017272 006301 5$: ASL RI [DOUBLE THE INCREMENT 
643 017274 060166 000002 ADD R1,2(SP) [DEVELOP THE RETURN ADDRESS 
644 017300 012601 MOV (SP)+,R1 TRESTORE R1 
645 017302 000207 RTS PC RETURN 
47 ;ROUTINE TO CHECK FOR LOOP ON ERROR 
649 017304 032777 001000 161642 LOP.CK: BIT #SWO9,aSWR LOOP ON ERROR ? 
650 017312 001402 BEQ BR IF 
631 017314 000177 161604 JMP ASLPERR +60 TO WME LOOP ON ERROR ADDRESS 
653 017320 095037 001176 1$: CLR SESCAPE :CLEAR THE ERROR ESCAPE ADDRESS 
654 017324 033727 605556 BIT FMTDPB+16,(PC)+ ;CHECK FOR ‘FATAL’ ERROR 
655 017330 072002 WORD gi Tv rat {3i61112i817 10:61 0 s"FATAL' ERROR BITS 
656 017332 001004 BNE 2 IF NOT» 
657 017334 032737 004000 005574 BIT #WLE RM, REGoRMERI” sWRITE LOCK ERROR ? 
658 017342 001402 BEQ 3$ :BR'1F NOT 
659 017344 000137 016342 Qs: JMP SEOP ‘TERMINATE THE FORMAT 


eo 


, - a - —_——- 


| es 
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| SUPPORT SUBROUTINES SEQ 0063 
| 660 
661 017350 000207 38: RTS —sPC ; RETURN 
663 THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 


664 
665 017352 


| 113737 001222 005540 SETTBL: MOVB, ODRIVE,FMTDPB  ;SET UP DRIVE # 
666 017360 105037 005543 CLRB | FMTDPB+3 CLEAR HIGH ORDER ADRS BITS 
667 017364 013737 001354 005544 MOV = MWC, FMTDPB+4 = :LOAD UP WORD COUNT 
668 017372 012737 045774 005546 MOV  #BUFP,FMTDPB+6 LOAD UP CURRENT ADRS 
| 9 017400 105037 005550 CLRB = FMTDPB+10 ;SET SECTOR TO ZERO 
670 017404 113737 001334 005551 MOVB  BEGTRK,FMTDPB+11" ;SET UP STARTING TRK ADRS 
| 71017412 013737 001330 005552 MOV —-BEGCYL, FMTDPB+12 SET UP STARTING CYL 
| 672 017420 005037 005556 CLR = FMTDPB+16 CLEAR RM STATUS 
| 23 017424 00207 RTS PC ;RETURN FROM SETUP 
| 675 sTHIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUNT 
| 676 :1T IS ENTERED AFTER EVERY TRK OPERATION 
678 017426 TRKTST: ’ 
| 679. 017426 105237 005551 INCB = FMTDPB+11 ;INCREMENT TRACK NUMBER 
680 017432 123737 005551 001332 CMPB 0s FMTDPB+11, ENDTRK ;LAST TRACK) TO BE FORMATTED ON THIS CYLINDER ? 
681 017440 101003 BHI «18 ;BR IF YES 
682 017442 004737 017756 JSR PC, UPDTRK ZUPDATE TRACK ADDREBS IN BUFFER 
683 017446 000425 BR 4$ ZEXIT 
685 017450 113737 001334 005551 18: MOVB_—-BEGTRK. FMTDPB#11 :GET BEGINNING TRACK ADDRESS 
686 017456 005737 001400 TST ; SEEK ING” FROM HI TO LO CYLINDER ? 
687 017462 001407 Bea F_NO 
688 017464 005337 005552 DEC  —- FMTDPB+12 :DECREMENT CYLINDER ADDRESS 
689 017470 023737 005552 001326 CMP = FMTDPB+12, ENDCYL :DONE WITH FORMATTING ? 
690 017476 002413 BLT = 5$ :BR IF YES 
691 017500 000406 BR 38 
692 017502 005237 005552 2$: INC ~—s FMTDPB¥+12 : INCREMENT CYLINDER ADDRESS 
693 017506 023737 005552 001326 CMP ss FMTDPB+12, ENDCYL ;DONE WITH FORMATTING ? 
694 017514 101004 BHI «S$ :BR IF YE 
695 017516 004737 017644 38: JSR PC, UPDCYL [UPDATE CYLINDER ADDRESS IN BUFFER 
| 697 017522 062716 000002 4$: ADD = #2, (SP) ;ADD TWO TO RETURN ADRS (NOT DONE) 
698 017526 000207 5$: RTS PC TRETURN, DONE FORMAT !! 
| 700 ;THIS ROUTINE SETS UP WC & BA FOR REMAINING SECTORS 
| 701 TAFTER A WRITE CHECK ERROR 
| 703 017530 013737 001350 005544 SCAWC: MOV § SAVWC,FMTDPB+4 ;SET UP WC FOR REMAINING SECTORS 
70% 017536 062737 001004 605546 ADD #516. -FATDPB+6 SET UP BA FOR REMAINING SECTORS 
| 205 017544 005237 005550 INC —- FATDPB+10 ZADVANCE TO NEXT SECTOR IN TBL 
| 206 017550 005037 001316 CLR = SOFSW ZRESET RETRY COUNTER 
| $07 017554 000207 RTS = PC :RETURN TO COMPLETE TRK FORMAT 
209 
710 THIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND 
at ZSECTOR ADRS IN MEMORY WITH THE STARTING CYL - TRK {NFORMATION 
713 017556 013701 001362 SETHDR: MOV —- MAXSEC,R1 :SET UP SECTOR COUNT 
714 017562 012737 000001 001214 MOV #1, STESTN :GARBAGE CODE FOR APT 
715 017570 012700 045774 MOV —- #BUFP, RO :SET UP HEADER POINTER IN RO 
716 017574 013702 001330 MOV —-BEGCYL,R2 :PUT STARTING CYL # IN R2 
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| SUPPORT SUBROUTINES SEQ 0064 
717 017600 052702 140000 BIS #ME ‘UF R2 :SET MFG AND USR 600D BITS (DEC STANDARD 144) 
718 017604 013703 001334 MOV : GTRK.R3 ‘PUT STARTING TRK # IN R3 
719 017610 000303 SWAB ‘JUSTIFY TRACK ADRS 
720 017612 005737 001360 TST £30 [SEE IF 30 OR 32 SECTOR MODE 
721 017616 001402 BEQ § ‘BR IF 30 SECTOR MODE 
722 017620 052702 010000 BIS #FMT,R2 ‘SET THE 32 SECTOR FORMAT BIT 
723 017624 010220 1$: MOV R2,(RO)4 ;WRITE IN HEADER AREA OF CORE THE CYL ADRS 
724 017626 010320 MOV R3.(RO)+ [WRITE IN HEADER AREA OF CORE THE TRK ADRS 
725 017630 062700 001000 ADD #512.,R0 ‘SET UP FOR NEXT HEADER 
726 017634 005203 INC R3 ‘UPDATE SECTOR ADRS FOR NEXT HEADER 
227 017636 005301 DEC RI ‘MAINTAIN COUNT OF SECTO 
728 017640 002371 BGE 1$ ;BR IF NOT LAST SECTOR 
729 017642 000207 RTS PC ‘EXIT = HEADERS ARE LOADED INTO CORE 
731 ;THIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER WORDS 
re ;AND FILLS DATA BUFFER FIELD IN CORE 
734 017644 UPDCYL: 

017644 010046 MOV RO,-(SP) 3;PUSH RO ON STACK 
017646 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
017650 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
0176 010346 MOV R3,-(SP) :;PUSH R3 ON STACK 
735 017654 013701 001362 MOV MAXSEC,R1 :SET UP SECTOR COUNT 
736 017660 012700 045774 MOV #BUFP,RO :SET UP HEADER POINTER IN RO 
737 017664 013703 001334 MOV BEGTRK,R3 :GET BEGINNING TRACK 
738 017670 000303 SWAB RS ‘STARTING SECTOR = 0 
739 017672 005737 001400 1$: TST WRAP i SEEKING FROM HI TO LO CYLINDERS ? 
740 017676 001402 BEQ 2$ NO 
741 017700 162710 000002 SUB #2, (RO) BECREMENT CYLINDER NUMBER 
742 017704 005220 2$: INC (RO) + ‘INCREMENT FOR NEXT CYLINDER 
743 017706 010320 MOV R3,(RO)+ “WRITE TRACK AND SECTOR HEADER 
744 017710 012702 001000 MOV #512. ,R2 [DATA FIELD LENGTH 
745 017714 013720 001340 3$: MOV PATA, (RO)+ “FILL BUFFER 
746 017720 013720 001342 MOV PATB, (RO)+ a itt BUFFER 
747 017724 162702 000004 SUB #4 RO ‘END OF DATA FIELD ? 
748 017730 001371 BNE 3$ NO 
749 017732 005203 INC R3 S INCREMENT TO NEXT SECTOR 
750 017734 005301 DEC RI :COUNT SECTORS 
751 017736 002355 BGE 1$ ‘BR IF NOT LAST SECTOR 
752 017740 012603 MOV (SP)+,R3 :;POP STACK INTO R3 
017742 012602 MOV ($B) +, Re ::POP STACK INTO R2 
017744 012601 MOV (SP)+,R1 ;POP STACK INTO R1 
017746 012600 MOV (SP)+.RO ::POP STACK INTO RO 
753 017750 005237 001214 INC STESTN S INCREMENT TST NUMBER FOR EACH CYLINDER CHANGE 
754 [GARBADE CODE FOR APT 
735 017754 000207 RTS PC EXIT 
24 s;THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 
759 017756 UPDTRK : 
017756 010046 MOV RO,-(SP) ::PUSH RO ON STACK ne 
017760 010146 MOV R1.-(SP) +:PUSH R1 ON STACK : 
760 017762 013701 001362 MOV MAXSEC,R1 7SET UP SECTOR COUNT - 
761 017766 012700 045774 MOV #BUFP, RO [SET UP HEADER POINTER IN RO 
762 017772 005720 TST (RO)+ :POINT tae POINTER TO TRK = SEC ADRS 
763 017774 062710 000400 15: ADD #400, (RO) SINDEX TRK ADRS 
764 020000 062700 001004 ADD #516.,RO *SET UP FOR NEXT HEADER 
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UPPORT SUBROUTINES 
765 020004 005301 
766 020006 062372 
767 020010 012601 
020012 012606 
768 020014 000207 
769 
770 
77) 
772 020016 012737 020074 
773 020024 005037 000006 
774 020030 005777 161244 
0200 013746 001304 
776 020040 012776 020250 
777 020046 062716 000002 
778 020052 012736 000300 
779 020056 012777 177777 
020 012777 000135 
781 020072 000426 
0200 062706 000004 
783 020100 012737 020144 
020106 005777 161176 
020112 013746 001312 
020116 012776 020250 
787 020124 062716 000002 
020130 012736 000300 
0201 012777 000100 
90 020142 000402 


1 020144 062706 000004 
50 012737 000006 
793 020156 000207 
794 
795 


7% 

797 020160 105737 001150 

798 020164 001024 

799 020166 004737 025576 
0172 104401 040212 


802 0 012637 001174 
803 pence 025727 001174 


0014 
805 020214 123727 001174 
806 020222 001405 
80”? 020224 104401 040373 
808 0202350 000000 
809 020232 000137 007020 


811 €20236 104401 036417 


020242 104401 001205 
020246 000207 


20280 012746 000020 
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DEC Ri COUNT SECTORS 

BGE 1$ :BR IF NOT oT _ 
MOV (SP)+,R1 :;POP STACK INTO R 

MOV (SP)+,RO ;;POP STACK INTO RO 
RTS PC * ;EXIT 


sROUTINE TO CHECK FOR KW1i1-L OR KW11-P CLOCKS 
000004 ST.CLK: MOV ceeckeet Q@#ERRVEC ;SET UP VECTOR FOR P CLK 
CLR vVEC+2 NEW PSW 


AFERR 
TST SSLKCSR ‘CHECK FOR KW11-P 
MOV SLPVEC,-(SP)  : VECTOR ADDRESS 
000000 MOV WCLOCK,@(SP) — ;SET UP_KW11-P VECTOR 
ADD #2, (SP) POINT TO PSW 
MOV #PR6,a(SP)+ “PSW = PRI 6 
161216 MOV #-1,a$LKCSB ‘LOAD COUNTER BUFFER 
161206 MOV #135, a$LKCSR § :SET CLK = CNT UP 
BR STCLKS 
STCLK1: ADD 4,§ :RESTORE THE STACK POINTER 
000004 MOV WS{CLK2 aHERRVEC™ sCHANGE ERROR VECTOR 
TST as_Ks sLOOK FOR KW11-L 
MOV SLLVEC,<(SP) Ku TeL VECTOR ADDRESS 
000000 MOV MCLOCK,a(SP) | :SET UP KWIT-L VECTOR 
ADD #2, (SP) SINCREMENT VECTOR ADDRESS 
MOV #PR6,a(SP)+ :PSW I 
161146 MOV #100. a$LKS “SET KWIl-L INTERRUPT ENABLE 
BR STCLK3 
STCLK2: ADD #4,SP ;RESTORE THE STACK POINTER 
000004 STCLK3: MOV #6 AWERRVEC TRESTORE THE ERROR VECTOR 
RTS PC 
;THIS CODE PRINT THE ABORT MESSAGE AND LET O.P. RESTART 
RESTRT: TSTB $AUTOB :RUN UNDER APT ? 
BNE 1$ ‘BR IF SO, 
JSR PC, $TKINT SENABLE TO READ 
TYPE MESG2 STMPROPER. MFG INFORMATION 
H 
MOV (SP)+,$TMPO :GET CHARACTER 
000015 CMP STMPO.#CR [CARRIAGE RETURN ? 
BEQ 1$ :BR IF YES 
000131 CMPB ss STMPO, #"Y SENTER Y ? 
BEQ 1$ ‘BR IF YES 
TYPE — , MHALT 
HALT . 
JMP BEGIN2 : JUMP TO BEGIN2 
1$: TYPE .Y s TYPE “‘y'' 
TYPE  ‘$CRLF © ICR-LF 
RTS PC EXIT 
:THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS 
CLOCK: MOV #16.,-(SP) ;PUT MILLISECONDS ON THE STACK 
JSR PC, RMTMR *GO REPORT TIME 
RT] [RETURN AND CONTINUE 
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160606 


001374 


000060 


sROUTINE TO INTERCEPT "CONTROL C° TYPED DURING PARAMETER ENTRY TIME 


C.ENTR: MOV 
18: TST 


BNE 
RESET 
JMP 


#STACK,SP 
TRNSWT 


MiB 


ZINITIALIZE THE STACK 
sALL ACTIVITY STOPPED ? 
R IF NOT 


[CLEAR THE BUS 
TSTART AGAIN WITH DRIVE SELECTION 


sROUTINE TO INTERCEPT ‘CONTROL O° TYPED WHILE PROGRAM IS FORMATTING 
;THE DISK PACK. THE CURRENT DISK ADDRESS IS TYPED TO THE TERMINAL 
DURING THIS ROUTINE IN THE FOLLOWING FORMAT. 


:PRESENT ADDRESS 1S: CXXX TXXX 


O.ENTR: tae 


2s: 
TYPADR: CLR 


PARENT: MOV 
: Vv 


1$: MOV 


: JSR 
TABLE 


asTKB,-(SP) 
#°C177, (SP) 


acNTLe 
(SP)+,#17 
2$ 


asTKB 
#100,aSTKS 


PS 
#C.ENTR,CNTLC 
eADDRIS 


FMTDPB+12,-(SP) 
PC,$SB2D 

PC ,SSUPRS 
oPLinse 


= (SP) 
FMTDPB+11, (SP) 
PC,$SB2D 

PC, SSUPRS 


- SCRLF 
#WO.ENTR @#TKVEC 


PARAMETER ENTRY ROUTINE 
> CALL 


RG, PARENT 


sWHERE ‘C* IS THE CYLINDER ADDRESS 
sAND ‘T* IS THE TRACK ADDRESS.(IN DECIMAL) 


;READ FROM TTY BUFFER 
sSTRIP PARITY 

sCONTROL=C ? 

;BR IF NO 

sTYPE A CONTRO.=C (*C) 
;RESTORE STACK 

; JUMP TO CONTROL=-C RESTART 
;CONTROL-0 ? 


77 
;CLEAR DONE BIT 
sENABLE TTY INTERRUPT 


;SET PROCESSOR TO PRIORITY 0 
iCHANGE ‘CONTROL C* RETURN ADDRESS 
i {PRESENT ADDRESS IS: ' 


"PUT THE CYLINDER ADDRESS ON THE STACK 
CONVERT IT TO DECIMAL 


[TYPE | 
ster 2 SPACES 
[CLEAR THE STACK 


[PUT THE TRACK ADDRESS ON THE STACK 
[CONVERT IT TO DECIMAL 
:TYPE JT 


7 CRLF 
RESTORE ENTRANCE FOR CONTROL-O 
; RETURN 


:THE CALLING SEQ 
;PARAMETERS TABLE 


;SAVE R3 

PARAMETER TABLE ADDRESS 
;PARAMETER TABLE ADDRESS 
ADDRESS OF PARAMETER NAME 
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BEO 7$ :BR IF AT END OF TABLE 
1YPE [TYPE THE PARAMETER NAME 
2s: .WORD 0 SADORESS OF PARAMETER NAME TEXT 
MOV (R3)*,R2 = MAXIMUM TER VALUE 
MOV (R3)4_R5 TADDRESS OF PARAMETER 
MOV (R5) ,=(SP) : CURRENT VALUE OF PARAMETER 
TYPDS i TYPE ,THE CURRENT VALUE OF THE PARAMETER 
TYPE SLASH 
RDLIN READ THE KEYBOAR 
MOV (SP)+,R1 sINPUT ASCII STRING ADDRESS 
JSR R5,CK.D1IG TCHECK THE DIGIT(S 
1$ SCARRIAGE RETURN ONLY ENTERED 
7$ 5$ ONLY ENTERED 
4$ SILLEGAL INPUT 
3$ : TERMINATED WITH , CARRIAGE RETURN 
i$ : TERMINATED WITH 
5$ : TERMINATED WITH 
3$ MOV R2,(R5) [MOVE NEW VALUE 10 PARAMETER LOCATION 
BR 1$ 7GET MOR : PARAMETERS 
4$: TYPE ,BADENT :*BAD ENTRY’ 
SUB #6, R3 :DECREMENT THE TABLE POINTER 
BR 1$ :TRY AGAIN 
5$ MOV R2, (RS) [NEW VALUE 
BR 7$ SEXIT 
:6$: MOV #TABLE ,R3 TRELOAD THE PARAMETER TABLE ADDRESS 
és: MOV (RG) RS :RELOAD THE PARAMETER TABLE ADDRESS 
BR 1$ :TRY AGAIN 
7$: MOV (SP)+,R3 “RESTORE R3 
ADD #2,R4  : ADJUST THE RETURN ADDRESS 
RTS RG :RETURN FROM THE R4 
; RTS PC SRETURN 
s THIS ROUTINE groan THE BAD SECTOR INTO USTAB TABLE 
[CALL SEQ PC,RECOR 
TALL REGISTER. USED ARE DESTORIED 
RECORD: MOV #USTAB+10,R1 STABLE ENTRY INR 
1$: CMP #-1,(R1) [AN OPENING IN HE TABLE 
BEQ 3s :BR IF IT 
CAP FMTDPB+12, (R1) CYLINDER NUMBER MATCHES ? 
000003 CMPB ss FMTDPB+11,3(R1) :TRK NURBER MATCHES ? 
BNE 2$ BR IF No! 
000002 CMPB  =—s- FMTDPB+10,2(R1) :SECTOR NUMBER MATCHE 
BEQ 4$ ‘BR TO EXIT, IF THe SPOT HAS RECORDED 
2s ADD #4,R1 ‘INCREMENT 4 BYTES 
CMP #USTAB+512.,R1 :END OF TABL 
BHI 1$ [BR IF NOT 
BR 5$ > THROW AWAY THE PACK 
3S: MOV FMTDPB+12,(R1) [LOAD THE CYLINDER # 
000003 MOVB  FMTDPB+11.3(R1) :LOAD THE TRK NUMBER 
000002 MOVB  SAVSEC,2(R1) [LOAD THE SECTOR NUMBER 
4$: RTS PC TEXIT 
5$ TYPE ,SCRLE 
TYPE MESGS ; THROW AWAY THE PACK 
TYPE *MHALT 


SEQ 0067 


3 
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T SUBROUTINES SEQ 0068 
020704 000137 007020 JMP BEGIN2 SRESTART IF DESIRED ? 
1 ;THIS ROUTINE SORT THE USTAB IN ASCENDING ORDER 
33 ;CALL SEQ JSR *PC,SORT2 
934 020710 SORT2: 
935 ; MOV #USTAB+B. RI ;TOP POINTER 
9 92071 011501 MOV (R5),R1 :TOP POINTER 
937 02071 012708 000175 MOV #125. ,R2 sTOTAL 126 ELEMENTS 
938 020716 01010 MOV R1,R3 ZLOCATE THE BOTTOM POINTER 
939 020720 062703 000764 ADD #560. ,R3 1254"4) K 2 
940 ; MOV #USTAB+508.,R3 :THE LAST ELEMENT 
941 020726 022711 177777 CMP #-1,(R1) ;THE TABLE IS EMPTY ? 
m4 | 0207 001444 BEQ 4$ sQUICK EXIT 
943 020732 021161 000004 1$: CMP (R1),4(R1) ;COMPARE THE CYLINDER NUMBER 
944 020736 101013 BH] 23 sSWITCH THE TWO ELEMENT 
945 020740 103426 BLO 3$ : INCREMENT POINTER 
946 020742 126161 000003 000007 CMPB —s«3(R1), 7(R1) :COPMARE THE TRK NUMBER 
947 020750 101006 BHI! 2$ :SWITCH ELEMENT 
948 020752 103421 BLO 3$ : INCREMENT POINTER 
949 020754 126161 000002 000006 CMPB  —s«o2 (R11) ,6 (1) ;COMPARE THE SECTOR NUMBER 
950 020762 101001 BHI 2$ 7SWITCH ELEMENT 
51 020764 000414 BR 3$ : INCREMENT POINTER 
95¢ 020766 011146 2s: MOV (R1),=(SP) sSAVE THE N BLOCK 
953 020770 016146 000002 MOV 2(R1),=(SP) sINTO STACK 
954 020774 016111 000004 MOV 4(R1),(R1) :SWITCH THE N#1 BLOCK TO N BLOCK 
5 021000 016161 000006 000002 MOV 6(R1),2(R1) : 
6 65 1808 ied 000006 MOV (SP)+,6(R1) ;LOAD THE N41 BLOCK 
957 02101 012661 000004 MOV (SP)+,4(R1) s 
021016 062701 000004 3$: ADD #4,R1 [UPDATE THE TOP POINTER 
59 021022 020103 CMP R1,R3 ;REACH THE BOTTOM ? 
021024 001342 BNE 1$ :BR IF NOT 
961 021026 005302 DEC R2 :DECREMENT ONE SORT COUNT 
962 021030 001404 BEQ 4$ ‘BR IF ALL DON 
963 021032 162703 000004 SUB #4 ,R3 TASJUST THE BOTTOM POINTER 
964 ; MOV #USTAB+8. ,R1 :RESET TOP POINTER 
965 021036 011501 MOV (R5),R1 sRESET THE TOP POINTER 
966 021040 000734 BR 1$ :BR IF NOT ALL DONE 
967 021042 4$: 
968 021042 062705 000002 ADD #2,R5 ZADJUST RETURN ADDRESS 
969 021046 000205 RTS R5 EXIT 
4 3 RTS PC sEXIT 
972 :THIS ROUTINE TEXT THE LAST TRACK CYL 822, LAST TRACK 
973 SSECTORS 0,2,4,6,8 16 BIT MFG 
97% sSECTORS *.3,5,7,9 18 BIT MFG 
975 TSECTORS 10,12.14,16,...eeece 30, 16 BIT USER 
378 SSECTORS 11,13,15,17,..ceeeee 31 18 BIT USER 
978 021050 012700 045774 TEXT: MOV #BUFP,RO :BUFFER ADDRESS 
979 021054 012701 020100 MOV #<258.*32.>,R1 ;TOTAL WORD COUNT 
980 021060 012702 177777 MOV #-1,R2 :SET ALL LOCATIONS TO -1 
981 021064 910220 1$: MOV R2, (RO) [FULL THE BUFFER 
982 021066 005301 DEC R1 SALL DONE ? 
983 021070 001375 BNE 1$ ;LOOP, IF NOT 
984 021072 013746 001214 MOV STESTN,-(SP) :SAVE TESTN,BEGCYL ,BEGTRK 
985 021076 013746 001330 MOV BEGCYL,-(SP) ; 
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MOV BEGTRK ,-(SP) 


MOV BAXSEC, (SP) 

MOV SEC ,=($P) 
001362 MOV 2 “MAXSEC 
001 560 MOV #=1-SEC30 
001330 MOV #822. ,BEGCYL 
001334 MOV LSTRK .BEGTRK 

JSR PC, SETH 

MOV (SP) +, SEC30 

MOV (SP) +, MAXSEC 

MOV (SP)*, BEGTRK 

MOV (SP)*,BEGCYL 

MOV (SP)+-STESTN 

MOV AD16, 

MOV #BUFP+4,R2 

MOV #32.,R 

2$: MOV (R1) .(R2) 

000002 MOV 2(R1),2(R2) 

CLR 4(R2) 

CLR 6(R2) 

ADD #516. ,R2 

DEC R3 

BNE 23 

CLR =(SP) 

CLR -(SP) 

CLR ( 


MOV #BUFP+44+516., 


MOV #5,-(SP) 
MOV WUSTAB,=(SP) 


MOV #BUFP+4+<516. 
TST SEC30 
BM] $ 
MOV #BUFP+4+<516. 
3$: MOV #11.,-(SP) 
MOV #USSAV,R1 
MOV #BUFP+4+<516. 
TST SEC30 
BM] 
MOV #BUFP+4+<516. 
4$: MOV #ii. 
MOV R1,R5 
5$: MOV #256. RG 
6$: MOV (R1)+,(R2)¢ 
DEC RG 
BNE 6$ 
MOV RS,R 
ADD #520. ,R2 
DEC R3 
BNE 5$ 


18-18 


TSAVE FLAG MAXSEC AND SEC30 


sSET MAX 31 SECTORS 
sALWAYS IN 16 BIT MODE 
;LOAD LAST CYLINDER 

sLAST TRACK 

SET UP THE HEAD FIELD IN THE BUFFER 
sRESTORE SEC30 AND MAXSEC 


;LOAD SERIAL NUMBER TO EVERY SECTOR 
BUFFER LOCATION + 4 

sTOTAL 32 SECTORS 

1 ST SN # 


72 ND SN #@ 

;THIRD WORD = 0 

71D = DATA PACK 

;ADVANCE TO NEXT SECTOR 

Ds we! ONE SECTOR COUNT 


;BR IF NOT DONE 
LOAD TABLE INTO SECTORS 
;DUMMY PAIRS 


: TABLE ADDRESS 
;BUFFER ADDRESS 
:SECTOR COUNT 
; TABLE ADDRESS 
-(SP) ;BUFFER ADDRESS 
SECTOR COUNT 
USER DEFINED TABLE 
#10.>,-(SP) ;BUFFER ADDRESS 


IF IN 16 BIT MODE 

->, (SP) :RESET THE BUFFER ADDRESS 
SECTOR COUNT 

; TABLE ADDRESS IN RI 

*11.>,R2 ;BUFFER ADDRESS IN R2 

;BR IF IN 16 BIT MODE 


*1C.>,R2  ;BUFFER ADDRESS FOR 18 BIT MODE 
:SECTOR COUNT IN R35 
: TEMPOR STORAGE 
;WORD COUNT = DATA FIELD OF ONE SECTOR 
;LOAD TABLE INTO SECTOR DATA FIELD 
sALL DONE ? 


3;BR IF NOT 

;RELOAD THE TABLE ADDRESS 
7SKIP ONE SECTOR 

;DECREMENT ONE SECTOR COUNT 
;BR 1F NOT DONE 

sRETRIEVE NEXT SET OF SECTOR # 
;BUFFER ADDRESS 

; TABLE ADDRESS 

;TEMPOR STORAGE 
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1074 021576 
1075 021600 
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1078 
1079 
1080 
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1084 021604 
1085 021610 
1086 021612 
1087 021616 
1088 021620 
1089 021624 
1090 021626 
1091 021634 
1092 021636 
1093 021644 
1094 021646 
1095 021650 
1096 021652 
1097 021656 
1098 021660 
1099 021664 
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BNE 5$ 
RTS PC 


:THIS ROUTINE RESET: 


;BR IF NOT DUMMY PAIR 
EXIT 


RESET THE BIT 14/15 OF THE 1 ST HEADER WORD OF THE BAD SPOT 
JSR PC RESET 


[CALLING SEQ; 


045764 RESET: MOV FMTDPB+12,RBUF ;CYLINDER ADDRESS 
BNE 1$ :BR IF NOT CN TRACK 0 
005551 CMPB es #1, FMTDPB+11 :BR IF NOT CYLO,TRK 0 OR 1 
BLO 1$ :BR IF NOT 
x sn REJCT2 TOTHERWISE, ILLEGAL BAD SECTORS 
045767 MOVE = FMTDPB+11, RBUF +3 : TRACK ADDRESS 
045766 MOVB  SAVSEC,RBUF+2 ;SECTOR ADDRESS 
045764 BIS HEADX , RBUF [SET MFG BIT,RESET USER BIT 
005630 MOVB DRIVE. FMTX :SETUP THE DPB FOR OPERATION 
005634 MOV -2,FMTX+4 sWORD “COUNT = 
005632 MOVB &MWRTHD,FMTX*2  :WRITE HEAD AND DATA COMMAND 
05636 MOV #RBUF,FMTX*+6 [BUFFER ADDRESS 
005640 MOVB  SAVSEC,FMTX+10 :SECTOR ADDRESS 
005641 MOVB = FMTDPB+11,FTX411 ;TRACK ADDRESS 
005642 MOV FMTDPB+12,FMTX412 :CYLINDER ADDRESS 
045764 BIS RBUF ;ASSUM 16 BIT MODE 
TST :IN 16 BIT MODE ? 
BM] 2$ ‘BR IF IT 1S 
045764 BIC #FMT ,RBUF TRESET THE FMT BIT 
2s: JSR RO,RMOS ‘CALL THE DRIVER 
FMTX [DPB ADDRESS 
BR 2$ ‘BR IF QUEUE FAILS 
3$: TST FMTX+16 > DONE ? 
BEQ 3$ ‘BR IF NOT 
RTS PC EXIT 
;THE ROUTINE INSERT: 
;INSERT A BAD SECTOR ADDRESS INTO ONE OF THE USTAB,USSAV,BAD16,BAD18 TABLES 
[CALLING SEQ 
; JSR RS, INSERT 
: TABLE + 8. 
INSERT: MOV R4,-(SP) SSAVE THE R4& 
MOV #126. ,-(SP) ‘ENTRIES OF THE TABLE 
MOV (RS) RG [TABLE ADDRESS + 8 BYTES 
1$: CMP #-1, (RS) [AN OPEN ENTRY ? 
BEQ 3$ :BR IF SO 
CMP DS.CYL, (R4) :CHECK IF THE BAD SECTOR HAS RECORDED 
BNE 4 ‘BR IF NOT 
000003 CMPB  —s-«OOS:. TRK,, 3( RG) [CYL AND TRK MATCH ? 
BNE 2$ ‘BR IF NOT 
000002 CMPB =«- SAVSEC,2(R4) =: CYL ,TRK AND SEC MATCH ? 
BEQ 4$ “BR IF SO 
2$: DEC (SP) [DECREMENT THE ENTRY COUNT 
BEQ 4$ “BR IF EXHAUST 
ADD #4 RG [LOCATE THE NEXT ENTRY 
BR 1$ ‘BR BACK 
3: MOV DS.CYL, (R4) [LOAD INTO TABLE 
000003 MOVB DS. TRK, 3(R4) =LOAD THE TRACK NUMBER 
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SEQ 0071 
001346 000002 MOVB SAVSEC,2(R4) | LOAD THE SECTOR NUMBER 
000002 4$: ADD #2,SP ZCLEAR UP THE STACK 
MOV (SP)+,R4 TRESTORE R& 
000002 ADD #2,R5 ZASJUST THE RETURN ADDRESS 
RTS RS EXIT 
041236 FUNCTI: TYPE | MESGS 
001205 TYPE , SCRLF i CRLF 
177777 001364 18: MOV #-1,0S.C¥L RESET THE INPUT VALUES 
177777 001366 MOV #-1,08.TRK : 
177777 001346 MOV #1, SAVSEC ; 
020454 JSR RG PARENT ZENTER THE VALUE FROM THE KEYBOARD 
TABLE2 
001364 TST DS.CYL [UPDATE VALUES ? 
BM] 2s BR IF NOT 
001366 | TST DS.TRK : 
BM] 2s : 
001346 Ist SAVSEC ; 
021602 JSR RS, INSERT SINSERT INTO THE BADIé TABLE 
BAD 16+8. ; 
BR 1$ [NEXT SET 
020710 | 28: JSR RS, SORT2 [SORT THE TABLE 
BAD16+8. 
041321 TYPE —_, MESG6 
001205 | TYPE ,SCRLF :CR-LF 
177777 001364 38: Mov #-1,0S.C¥L ;RESET THE INPUT VALUES 
177777 001366 MOV #-1,05.TRK : 
177777 001346 MOV #-1,SAVSEC ; 
020454 JSR RG PARENT ZINPUT VALUES FROM THE KEYBOARD 
TABLE3 :18 BIT TABLE 
001366 | TST = DS..CYL ;UPDATED VALUES ? 
BMI 4$ :BR IF NOT 
001366 TST DS. TRK : 
BM] 4% : 
001346 TST SAVSEC ; 
BM] 4% ; 
021602 JSR RS, INSERT ZINSERT THE BAD SECTOR INTO TABLE BADI8 
+ . 
3$ NEXT SET 
020710 4$: JSR R5,SORT2 :SORT THE BADI8 TABLE 
| BAD18+8. 
S PC ZEXIT FROM THE CALLING OF TABCAL 
003434) 022272 FUNCT2: MOV WUSTAB+8.,3$ | ;SETUP TABLES FOR 16 BITS MODE 
003434; 022302 MOV WUSTAB+8. 5% : 
004440! 022372 MOV #USSAV+8., 7% 3 
004440) 022402 MOV = BUSSAV#B..9$ 
001360! TST SEC 30 :IN 16 BIT MODE ? 
| BMI 1$ 7BR IS SO,OTHERWISE RELOAD THE TABLES 
003434 022372 MOV WUSTAB+8.,7$ SET UP TABLES FOR 18 BITS MODE 
003434 022402 MOV WUSTAB+8.,9$8 —: 
004440! 022272 MOV MUSSAV+B., 3% 3 
022302 MOV #USSAV+B. 5% : 
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1169 022260 
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1185 022344 
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1187 022352 
1188 022356 
1189 022360 
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1191 022366 
1192 022372 
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1196 022404 
1197 022412 
1198 
1199 022414 
1200 022416 
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1$ TYPE »MESG7 
TYPE ,SCRLF 
001364 2% MOV #-1,0S.C¥L 
001366 MOV #-1,0S.TRK 
001346 MOV #-1, SAVSEC 
| JSR _ RG, PARENT 
TABLE2 
| TST DS.CYL 
| BMI 4$ 
TST DS.TRK 
BM] 4$ 
TST SAVSEC 
BMI 4 
JSR R5, INSERT 
3$ .WORD 0 
BR 23 
4$ JSR R5,SORT2 
$ -WORD 0 


01364 6$: MOV #-1,0S.CYL 
01366 MOV #-1,0S.TRK 
001346 MOV #-1,SAVSEC 
JSR R4, PARENT 
TABLE3 
TST DS.CYL 
BM] 8&$ 
TST DS.TRK 
BM] 8$ 
TST SAVSEC 
\ BM] $ 
. JSR RS, INSERT 
\ 7$: -WORD 0 
BR 6$ 
8$: JSR R5,SORT2 
9$: -WORD 0 
001406 MOV #-1,EDI1T 
RTS PC 
FUNCT3: MOV R1,-(SP) 


MOV #BAD16,R1 
TYPE »MESG9 


1$: TYPE - SCRLF 
MOV (R1)+,-(SP) 
] 2% 
TYPOC 
R 1$ 
2$: ADD #2,SP 
TYPE -MESG10 
MOV #BAD18,R1 
3$: TYFE F 


eSCRL 
MOV (R1)+,-(SP) 
4% 


:MESSAGE FOR ENTER 16 BITS USR TABLE 
;CReL 
sRESET THE INPUT VALUES 


SENTER BAD SECTOR ADDRESS FROM THE KEYBOARD 
:UPDATED INPUT VALUE ? 
;BR IF NOT 


: INSERT THE BAD SECTOR INTO TABLE 
; TABLE ADDRESS 

ENTER NEXT BAD SECTOR ADDRESS 
SORT THE TABLE 

; TABLE ADDRESS 


7 tr a FOR 18 BIT USR TABLE 
7 CR#L 
sRESET THE INPUT VALUES 


TENTER BAD SECTOR FORM KEYBOARD 


;UPDATED INPUT VALUE ? 
:BR IF NOT 
;BR IF NOT UPDATE 


‘BR IF NOT UPDATED 
: INSERT THE BAD SECTOR INTO TABLE 


;BR TO ENTER NEXT SECTOR 

;SORT THE TABLE 

; TABLE ADDRESS 

;UPDATE BAD SECTOR FILE AT END OF PASS 
sEXIT FORM THE TABCAL CALLING 


SAVE R1 

zADDRESS OF THE TABLE 

7MESG TO TYPE THE 16 BIT MFG 
sCR-LF FIRST 

;CALLING SEQ FOR TYPOC RT. 
3;BR IF END OF TABLE 


: NG BACK 
;ADJUST THE RETURN ADDRESS 
7MESG TO TYPE 18 BIT MFG 

; TABLE ADDRESS 


SCALLING SEQ FOR TYPOC RT. 
‘BR IF END OF TABLE 
[TYPE THE VALUE IN OCTAL 


CZRMLAO RMOS/3/ 
| SUPPORT SUBROUT 
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we 
rw 


FUNCT4: 


5$: 


FUNCTS: 


1$: 


2s: 


FUNCT6: 


3$ 
#2,SP 
(SP)+,R1 
PC 


R1,-(SP) 
R2,-(SP) 
#WUSTAB,R1 
MUSSAV,R2 
SEC30 

1$ 


#USTAB,R2 
#USSAV.R1 
MESG11 


- SCRLF 
(R1)+,-(SP) 
3$ 


2$ 
#2,SP 
»MESG12 


-SCRLF 
(R2)+,-(SP) 
5$ 


4$ 

#2,SP 
(SP)+,R2 
(SP)+,R1 
PC 


R1,-(SP) 


#-1,(R1)4 
R2 


1$ 

BAD18+4. 
BAD18+6. 
#BAD18+8.,R1 
#252. ,R2 
#-1,(R1)+ 
R2 


2$ 
(SP)+,R2 
(SP)+_R1 
,MESGI4 
PC 


R1 --(SP) 
R2,-(SP) 
USTAB+4 
USTAB+6 
MUSTAB+8. ,R1 


LOOPING BACK 

sADJUST THE RETURN ADDRESS 
sRESTORE THE RI 

sEXIT FROM THE CALLING OF TABCAL 


;SAVE R1 

sSAVE R2 

“SET 16 BIT MODE TABLE 

316 BIT MODE ? 

sBR IF SO 

SOTHERWISE,RELOAD THE TABLE ADDRESS 
“MESG FOR 16 BIT 


‘BR IF END OF TABLE 


‘ADJUST STACK POINTER 
“MESSAGE FOR 18 BIT MODE 


;CR-LF 


‘BR IF END OF TABLE 


NEXT SECTOR ADDRESS 
sADJUST THE STACK POINT 
sRESTORE R2,R1 


[EXIT FROM THE CALLING OF TABCAL 
sSAVE R1,R2 


;START AT THE 5TH WORD 
:WORD CTR 

RESET TO -1 
;DECREMENT WORD CTR 
:BR IF NOT DONE 


;START AT THE 5TH WORD 
:WORD CTR 

sRESET TO -1 
;DECREMENT WORD CTR 
:BR IF NOT DONE 
sRESTORE R2,R1 


DONE MESAGE 
sEXIT FROM THE TABCAL CALLING 


STORE R1,R2 


SEQ 0073 
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001406 


001364 
001366 
001346 


2$: 


2$: 


3$: 
4$: 


5$: 


F 
1 


NCT 


#252. ,R2 
#=-1,(R1)¢ 
R2 


1 

USSAV+4 
USSAV+6 
MUSSAV4+B.,R1 
#252. ,R2 
#-1,(R1)+ 
R2 

2s 

(SP)+,R2 
(SP)+,R1 


MESGI4 
#-1,ED1T 
PC 


»MESG13 


(SP)+,R1 
#32.,R2 
R5,CK.DIG 


R2 
ADRTBL(R2),R1 
#258. ,R2 

» SCRLF 

#10,R5 
(R1)+,-(SP) 


-BLNKS2 
R 


»MESG15 
#-1,0S.CYL 
#-1,DS.TRK 
#20161. ,SAVSEC 
R4, PARENT 


DS.CYL 

$ 
DS.TRK 
6$ 
SAVSEC 
6$ 


s;WORD CIR 


sRESET TO =1 
;DECREMENT WORD CTR 
;BR IF NOT DONE 


; TABLE ADDRESS 
;RESET TO =1 


“DECREMENT WORD CTR 
BR IF NOT DONE 


SRESTORE R1,R2 
:DONE MESSAGE 


;UPDATE BAD SECTOR FILE AT END OF PASS 


;EXIT FORM THE TABCAL CALLING 


MESSAGE ENTER SECTOR # 
;READ THE SECTOR NUMBER 
ADDRESS OF READ-IN BUFFER 


;MAX VALUE 


U 
CHECK THE READ-IN VALUE 


FOUND TH 
: ADDRESS 
WC FOR W 
; CR-LF 


7CReL 
38 WORDS 
; CONTENTS 


sTYPE 2S 
;DECREMEN 
3BR IF F 
sSTART AN 
;BR IF NO 


:BR IF SO 
CR 


sRESET AL 
: TRACK NU 


E WORD INDEX 
OF THE BUFFE 


R 
HOLE SECTOR INCLUDING HEADER 


ON A LINE 
OF THE SUFFER 


PACES 

T WORD CTR 
INISH 

he LINE ? 


;CR-LF 
EXIT FROM TABCAL CALLING 


L_INPUT VALUES 
MBER 


;BYTE NUMBER 


sENTER THE VALUE FROM KEYBOARD 


; UPDATED 
sEXIT IF 
3;BR IF NO 


“BR TO EX 
sEXIT 


? 
NOT 

T UPDATED 
IT IF NEG 


SEQ 0074 


CZRMLAO RMO5/3/2 FORMATTER 
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001346 CMP  thtaliaamiaats TOO LARGE ? 


:BR IF SO,EXIT 
MOV R4,-(SP) 2 SAVE R4 
MOV SAVSEC,-(SP) 7 SAVE 


SAVSEC 
CLR R4 ; INDEX STARTS FROM 0 
006332 2$: CMP SAVSEC ,BYTE16(R4) ;LOCATE THE SECTOR ADDRESS 
BLOS 3$ ;BR IF FOUND 
ADD #2,R4 ; TRY NEXT SECTOR 
BR 2$ ; LOOPING 
3$: ASR R4 SECTOR ADDRESS 
MOV R4, SAVSEC :16 BIT MODE BAD SECTOR ADD 
R R5, INSERT : INSERT INTO TABLE 
BAD 16+8. 
¥ (SP)+,SAVSEC LOCATE SECTOR FOR 18 BIT 
CLR R4 sRESET INDEX VALUE 
006432 4$: CMP SAVSEC ,BYTE18(R4) ;USE TABLE 18 BIT 
BLOS 5$ :BR IF FOUND 
ADD #2,R4 TRY NEXT SECTOR IF NOT FOUND 
BR 4% ;LOOPIN BACK 
5$: ASR R4 SECTOR ADDRESS 
MOV R4,SAVSEC 3 
SR R5, INSERT : INSET INTO TABLE 
BAD18+8. 
MOV (SP)+,R4 sRESTORE k4 
BR 1$ ;LOOPING BACK 
6$: JSR R5,SORT2 ;SORT BOTH TABLE ANYWAY 
BAD16+8. 
R R5,SORT2 : 
BAD18+8. 
S PC RETURN TO SERVICE LOOP 


THIS ROUTINE IS USED TO CHECK IF AN 
or CHARACTER IS A DIGIT BETWEEN 0 AND 7. 


MOV #ADR,R1 yADDRESS OF ASCI] CHARACTER 


: JSR R5,CK.OCT s;CHECK THE CHARACTER 
; RETURN] : CHARACTER IS NOT BETWEEN 0-7 
; RETURN2 CHARACTER IS IN R2 AS A 
: sOCTAL DIGIT 
CK.OCT: pty eth ae ;LESS THAN ZERO? 

L : 

CMPB (R1),#'7 ;GREATER THAN SEVEN? 

BHI 1$ s¥es : 

MOVB (R1),R2 GET THE CHARACTER 

BIC #*C7,R2 STRIP AWAY THE ASCII 

TST (R5)+ ADJUST FOR RETURN 
1$: RTS R5 ;RETURN 


THIS ROUTINE IS USED TO CHECK AN ASCI1 CHARACTER 
ry DETERMINE IF IT 1S A DIGIT BETWEEN 0 AND 9. 
; L 


s MOV WADR,R1 sADDRESS OF ASCII CHARACTER 
: JSR R5,CK.DEC CHECK THE CHARACTER 

; RETURN1 :NOT BETWEEN 0 AND 9 

; RETURN2 soe tucee A d9 


SEQ 0075 
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| SUPPORT SUBROUTINES 


Ww 
oOo 00 


=|=SODNAUVEWN—ODOONOWN 
; SooooScooO 
ooo] 


reorvrererererery 


oS 
ww 
NNN NUS NS ee Bee 
MNNNNW—WONM nr = 
VAM NI O NNN NN 


023454 setae 
023460 000205 


UPFWR—O OOO UF WN OC OONO US wh 
o o 
~m 
Ww 
& 
w 
o 
w 
o 
w 


eee SVS OLN Ooe Sass ws 


co~ 


39 023462 010446 
40 023464 010346 
41 023466 010246 


, at eet et et et pt bt bt bt bt et ete et tee et et te ee 


000054 
000056 
023362 
023334 


CK.DEC: CMPB 
BL 


1$: RTS 
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LESS THAN ZERO? 
: GREATER THAN NINE? 


;GET THE CHARACTER 
STRIP AWAY THE ASCII 
sADJUST FOR RETURN 
;RETURN 


sTHIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
DETERMINE WHAT IT 1S. 


RETURN 


CK. CHR: TSB 


: RETURN 


MADR ,R1 
R5,CK.CHR 
ADR1 


sADDRESS OF ASCII CHARACTER 
CHECK CHARACTER 

UNKNOWN CHARACTER 

CARRIAGE RETURN * (R1)=ADR+1 
;COMMA * (R1)=ADR+1 

PERIOD * (R1)=ADR+1 

:DIGIT BETWEEN 0 AND 7. 
:DIGIT BETWEEN 8 AND 9. 

3R2 = DIGIT * (R1)=ADR+1 


"CARRIAGE RETURN’? 
sYES 
:"'COMMA''? 


sMOVE POINTER TO NEXT CHARACTER 
; UNKNOWN CHARACTER 
; RETURN 


THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 


» 
m 
_" 
=| 
z@ 
= 


CK.DIG: MOV 
M 


; CHARACTERS AND 
> CALL 


. . J s. . _ . *. . 
PJ 
mm 
“o 
={ 
xz 
2 


FORMS A DECIMAL 


#ADR,R1 


R4,~(SP) 
R3,-(SP) 
R2,-(SP) 


VALUE BINARY NUMBER IN R2. 


SADDRESS OF ASCIZ STRING 

;MAX. MAGNITUDE OF INPUT NUMBER 

CHECK DIGITS 

Z'CR ONLY ENTERED -- R2=0 

;'PERIOD™ ONLY ENTERED -- R2=0 

ZILLEGAL CHARACTER OR INPUT TOO LARGE -~ R2=? 
Z'CR" == R2 = NUMBER 

:'COMMA'' == R2_= NUMBER 

;'PERIOD"' -- R2 = NUMBER 


;SAVE R4 
SAVE R3 
:SAVE THE MAX. SIZE ON THE STACK 


IAP AO One ey * 


SEQ 0076 


CZRMLAO RMO5/3/2 FORMATTER 


| SUPPORT SUBROUTINES 


1442 tines 005 


023410 


000004 


om 

NOORNWORWOR RUS Mm 
OoOoooooooooo 
OA MMMMNNOCOO 


i et oe 
WII 
Wr —O0One 
YYUUNVNVes=s 
=] 
Ww 
oO 
w 


— a Ss 


3 
sgttt4 023410 


WhO OOnous 
oo 
OSMOS Fry 
oS 
tw 
ww 
w 
w 
o 


Seoeocesc 

w Ww 
uw 
“ 
o 
i=] 
So 
w 
~“ 
NM 
w 


So 

we 
aon 
— et et et 
ornnos 

So 

—_ 

_" 

w 

So 

w 


000205 


cst a a a = = ss ss as ss Ls 
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CLR R2 ;START WITH 0 
CLR R3 : 
CLR R4 
JSR R5,CK.CHR ;CHECK ONE CHARACTER 
6$ ; ILLEGAL CHARACTER 
9$ ;CARRIAGE RETURN 
6$ age 
7$ —- 
1$ :DIGIT 0-7 
1$ :DIGIT 8-9 
1$: ADD #4 RS ;STEP RETURN POINTER PAST "'CR'' & "'PERIOD'’ RETURNS 
2$: ASL R3 ; INPUT NUMBER *2 
MOV R3,-(SP) SAVE *2 
ASL R3 ; 
ASL R3 :*8 
ADD (SP)+,R3 3 (#2)4(*8) = #10 
ADD R2,R ;UPDATE THE INPUT NUMBER 
JSR R5,CK.CHR ;CHECK ONE CHARACTER 
8$ ; ILLEGAL CHARACTER 
7 ;CARRIAGE RETURN 
3s aa 
2$ :DIGIT 0-7 
2$ :DIGIT 8-9 
3$ TSTB.(R1) ;DOES A ‘'CR' FOLLOW THE ‘'PERIOD" 
BNE 8$ :BR IF NOT 
TST (R4)+ ; INCREMENT THE RETURN 
4$ TST (R4)+ ; INCREMENT THE RETURN 
5$ TST (R4)+ ; INCREMENT THE RETURN 
CMP R3, (SP) ;CHECK THE MAGNITUDE OF THE NUMBER 
BGE 98 ;BR iF ENTERED NUMBER TOO LARGE 
BR 8$ ;BYPASS INCREMENT 
6$ TST (R5)+ : INCREMENT RETURN PAST INVALID RETURN 
7$ TST (R5)+ ; INCREMENT RETURN 
8$ ADD R4 RS ;SETUP RETURN POINTER 
9$ MOV R3,R2 sENTERED VALUE 
TST (SP)+ ;CLEAN MAX, SIZE OFF OF STACK 
MOV (SP)+,R3 ;RESTORE R3 
MOV (SP)+,R4 ;RESTORE R4 
MOV (R5),R5 ;GET RETURN ADDRESS 
RTS R5 ;RETURN 


.SBTTL MACRO ROUTINES 


-SBTTL ERROR HANDLER ROUTINE 


ETT rir i titi titi tit titi iti ttt i tii ti titiiit 
:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO TYPERR ON ERROR 

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;*Swl HALT ON ERROR 


3*SW13=1 INHIBIT ERROR TYPEOUTS 
3*Swi0=1 BELL ON ERROR 
3 *SwO9=1 LOOP ON ERROR 


SEQ 0077 


[ N 
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ERROR HANDLER ROUTINE SEQ 0078 
7" ERROR N :;ERROR=EMT AND N=ERROR ITEM NUMBER 
023620 SERROR: 
023620 104407 CKSWR :: TEST FOR CHANGE IN SOFT=SWR 
023622 010137 001370 MOV R1 -DDRIVE :DRIVE ADDRESS IF DRIVE ERROR CALL 
023626 010337 001372 MOV R3.A TTENTION REGISTER CONTENT 
023632 013737 005552 001364 MOV Fafppoet2.dS.cvL~- sCURRENT CYLINDER ADDRESS: 
023640 113737 005551 001366 MOVB  FMTDPB+11.DS.TRK :REQUESTED TRACK ADDRESS 
023646 005737 005564 TST RM.REG+RMBA :NON-ZERO BUFFER ADDRESS ? 
023652 001406 BEQ 7$ :BR IF NO BUFFER ADDRESS 
023654 013746 005564 MOV RM. REG*RMBA, =(SP) ;BUFFER ADDRESS 
023660 162716 000002 SUB #2, (SP) sDECREMENT THE ADDRESS 
023664 013637 001140 MOV a(SP)s, SGDDAT GET THE BUFFER WORD WHICH DIDN'T COMPARE 
023670 105237 001117 7$: INCB —- SERFLG i:SET THE ERROR FLAG 
023674 001775 BEQ 7$ ON'T LET THE FLAG GO TO ZERO 
023676 013777 001116 155252 MOV STSTNM,@DISPLAY : DISPLAY TEST alUNBER AND ERROR FLAG 
023704 032777 002000 155242 BIT #B1T10.aSWR ::BELL ON ERROR 
023712 001402 BEQ 1$ [NO = SKIP 
023714 104401 001200 TYPE $BELL [:RING BELL 
023720 005237 001126 1$: INC $ERTIL ::COUNT THE NUMBER OF ERRORS 
023724 011637 001132 MOV (SP), SERRPC +:GET ADDRESS OF ERROR INSTRUCTION 
023730 162737 000002 001132 SUB #2, SERRPC 
023736 117737 155170 001130 MOVB a$ERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
023744 032777 020000 155202 BIT #B1T13,aSWR *:SKIP TYPEOUT i SET 
023752 001004 BNE 20$ ::SKIP TYPEOUT 
023754 004737 024054 JSR PC, TYPERR ::G0 TO USER ERROR ROUT INE 
023760 104401 001205 TYPE  ,S$CRLF 
023764 20S: 
023764 122737 000001 001230 CMPB = #APTENV,SENV =; ;RUNNING IN APT MODE 
023772 001007 BNE 2$ *=NO,SKIP APT ERROR REPORT 
023774 113737 001130 024006 MOVB $I TEMB, 218 ‘:SET ITEM NUMBER AS ERROR NUMBER 
024002 004737 024656 JSR PC, SATY ::REPORT FATAL ERROR TO APT 
024006 000 218: -BYTE 0 
024007 000 ‘BYTE 0 
024010 000777 22$: BR 22$ ::APT ERROR LOOP 
024012 005777 155136 2$: TST aSWR ‘:HALT ON ERROR 
024016 100002 BPL 3$ ::SKIP IF CONTINUE 
024020 000000 HALT i EHALT ON ERROR! 
024022 104407 CKSWR TEST FOR CHANGE IN SOFT-SWR 
024024 032777 001000 155122 38: BIT #B1T09,aSwWR ; LOOP ON ERROR SWITCH SET? 
024032 001402 BEQ 4$ BR IF 
024034 013716 001124 MOV SLPERR, (SP) + FUDGE RETURN FOR LOOPING 
024040 005737 001176 4$: TST SESCAPE >: CHECK FOR AN ESCAPE ADDRESS 
024044 001402 se BEQ 5$ ::BR IF NONE 
024046 013716 001176 = MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
024052 000002 RTI > RETURN 
1g 
3 
1489 ;THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE 
1490 [WHICH ERROR 1S TO BE REPORTED, IT THEN OBTAINS, FROM THE "ERROR 
1491 STABLE'’ (SERRTB), AND REPORTS THE APPROPIATE INFORMATION 
1492 “CONCERNING THE ERROR. ‘ 
1494 024054 104412 TYPERR: SAVREG :SAVE RO-RS 
1495 024056 005000 CLR RO [CLEAR RO FOR ERROR NUMBER 
1496 024060 113700 001130 MOVB  $I1TEMB,RO ‘ERROR NUMBER 


PPP 


a Ot ss ss a 8 2s ns 2 4 sg ss es ss — i ss et ss ss 
PUPP PPP PAA AAAI 


Vw uw 


ES 
QLEPEDPUPUDUPUDUDPVPUDPUD DUST 
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OR HANDLER ROUTINE SEQ 0079 


97 0246066 005 DEC RO ;FORM INDEX FOR ERROR TABLE 
98 Ps ASL RO 
40 ASL RO 
00 02407 00 ASL RO 
01 0 4074 06 006526 1$: ADD #SERRTB_RO ;FORM ADDRESS 
0¢ 4100 012037 0246114 MOV (RO)+,26 “GET ERROR MESSAGE (EM) POINTER 
0 9 4106 001406 BEQ $ 'BR IF THERE ISN 
04 4106 104401 001205 TYPE ,SCRLF S"CARRIAGE RETURN = LINE FEED 
05 9 4112 106601 TYPE 
06 41146 909000 2$: ‘ 0 "EM" POINTER GOES HERE 
07 0 aii 012037 024132 3$: MOV (RO)+,4$ [PICK UP DATA HEADER (DH) POINTER 
08 024122 001404 BEQ $ :BR IF NONE 
09 024126 104401 001205 TYPE  ,SCRLF [CARRIAGE RETURN-LINE FEED 
10 241 104401 TYPE 
11 026132 000000 4$: .wORD 0 DH’ POINTER GOES HERE 
1g 024134 012001 5$: MOV (RO)+,R1 iPICKUP DATA TABLE (DT) POINTER 
13 024136 001460 BEQ 15$ [BR IF NONE 
14 026140 005005 CLR RS [SET INDENT SWITCH 
15 O2414¢ 912000 MOV (RO)+,RO [DATA FORMAT (DF) POINTER 
16 024144 012002 MOV (RO)+.R2 [NUMBER OF DH'S TO TYPE 
17 0261466 001451 BEQ ;BR IF DH 
18 024150 005105 COM RS [NO INDENT 
19 024152 104401 001205 TYPE  ,$CRLF CARRIAGE RETURN= INE FEED 
20 024156 112003 6$: MOVB = (RO) +, R3 [NUMBER OF DATA WORDS TO TYPE 
21 026160 112004 MOVB = (RO) +. RG [AND HOW TO TYPE THEM 
32 024162 04 7$: ROR R4 ZOCTAL OR DECIMAL? 
23 0246164 103403 BCS 8S DEC 
24 024166 013146 MOV a(R1)+,-(SP) CAVE. 5(R1)¢ FOR TYPEOUT 
0241 10440 TYPOC 37G0 TYPE--OCTAL ASCII(ALL DIGITS) 
25 024172 000402 BR ry 
26 026174 8S: 
024174 013146 MOV a(R1 *,-(SP) i: SAVE @(R1)* FOR TYPEOUT 
024176 104405 TYPDS ‘80 TyPE~—DECIMAL ASCH WITH SIGN 
27 024200 005303 9$: DEC R3 ORE NUMBERS TO TYPE? 
28 024202 001403 BEQ 108 
29 024206 104401 036425 TYPE BLNKS2 :TYPE 2 SPACES 
30 024210 000764 BR ’$ “LO 
31 024212 005302 10$: DEC R } ‘MORE DH'S? 
32 024214 003431 BLE 15$ NO 
33 024216 104401 001205 TYPE $CRLF SYES==START A NEW LINE 
34 024222 005760 000002 TST 3c RO) SONLY A 'DH’ IN THIS REQUEST ? 
35 024226 001404 BEQ 11$ ‘BR IF tes - BYPASS THE INDENT 
56 024230 005105 COM : INDENT 
3? 024232 001002 BNE 11$ ‘NO 
38 024234 104401 036425 TYPE  ,BLNKS2 sTYPE 2 SPACES 
39 024240 012037 024246 11$: MOV (RO)+, 12% GET NE XT DH 
40 024266 104401 TYPE [AND TYPE IT 
41 024246 000000 12$: .WORD 0 [DH POINTER GOES HERE 
4g 024250 005710 1ST (RO) [TYPE A 'DT’ ? 
43 024252 001003 BNE 13$ [BR IF A "DT 
44 024254 062700 000004 ADD #4, RO SINCREMENT THE 'DF* POINTER 
45 024260 000754 BR o$ :SEE IF END OF "DF* BLOCK 
46 024262 104401 001205 13$: TYPE  ,$CRLF [CARRIAGE RETURN-LINE FEED 
47 024266 005705 TST RS : INDENT? 
48 024270 001332 BNE 6$ ; 
49 024 re 104401 036425 14%: TYPE  ,BLNKS2 :TYPE 2 SPACES 
50 024276 000727 BR é$ SLOOP 


RMLAO eee glee 
ROR HANDLER TINE 
1551 0 
15 
15 
15 


SRD 8st 
4 


CZ 
ER 


5 
5 
5 


024304 105737 001173 


024320 017600 gooeee 


024326 122737 0001 
024332 001011 
0243 132737 000100 
024342 001405 
024344 010037 024354 
024350 004737 024646 
024354 000000 
024356 132737 000040 
4364 001003 
4366 112046 
024370 001005 
024372 005726 
024374 012600 
024376 062716 000002 
024402 000002 
024406 122716 000011 
024410 001430 
024412 122716 000200 
024416 001006 
024420 005726 
024422 104401 
024426 001205 
024426 105037 024634 
024432 000755 
24434 004737 024516 
024440 123726 001172 
024444 001350 
024446 013746 001170 
024452 105366 000001 
024456 002770 
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001230 
001231 


001231 


15$: RESREG 
RTS 


-SBTTL TYPE ROUTINE 


sRESTORE RO-RS 
;RETURN 


;eeerererearereerererererereeeeneaReeakeneRAKeneeeneeneeeeeenede 


! ROUTINE TO TYPE ASCIZ MESSAGE. 
i ROUTINE WILL INSERT A 


: *NOTE 


A NUMBER OF NU NE FEED. 
-“SNULL CONTAINS < CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 


:#NOTE SFILLC CONTAINS 
FOCAL 
zl) USING A TRAP — 
; TYPE »MESAD 
® 
;* TYPE 
yf MESADR 
the 
$TYPE: TSTB STPFLG 
BPL 1$ 
HALT 
BR 3$ 
1$ MOV RO,-(SP) 


MOV @2(SP) ,RO 


CMPB WAPTENV, SENV 
BNE 628 
BITB © #APTSPOOL, SENVM 
BEQ 6 2$ 
MOV RO, 618 
JSR PC, SATY3 
$: .WORD 0 
62$:  BI1TB  #APTCSUP, SENVM 
BNE 608 
28 MOVE = (RO) +, =( SP) 
BNE = 48 
ae 4 fi eet 2 
60$: MOV (SP) +,RO 
3$: ADD «#2, (SP) 
RTI 
4$ CMPB WHT, (SP) 
BEQ 
CMPB CRLF, (SP) 
BNE 58 
TST (SP) 
TYPE 
SCRLF 
CLRB = SCHARCNT 
Bik 2$ 
5$: JSR —- PC, STYPEC 
6$:  CMPB SFILLC,(SP)+ 
BNE 28 
MOV —- $NULL,~(SP) 
7$: = DECB. «AAC SP) 
BLT Ss 


MESSAGE MUST TERMINATE WITH A O BYTE. 
R NULL CHARACTERS AFTER A LI 


THE CHARACTER TO FILL AFTER. 


7 :MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


i218 THERE A TERMINAL? 
SIMALT HERE If NO TERMINAL 


: SAVE RO 

$366 ADDRESS A -s ASCIZ STRING 
INNING IN APT MOD 

ENO. GO CHECK FOR ¥? ae 
SPOOL MESSAGE T0 A 
3:N0,GO CHECK FOR CON SOL E 
SETUP MESSAGE ADDRESS FOR APT 
:3 SPOOL oe TO APT 


PUSH CHARACTER TO BE TYPED i STACK 
::BR IF IT ISN'T THE TERMINATOR 
ialF 4 at a POP IT OFF THE STACK 


i :ADJUST RETURN PC 
+ : BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
3: TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 
286. NEXT CHARACTER 
:G0 TYPE THIS CHARACTER 
S IT TIME FOR Ae CHARS.? 
F_NO GO GET NEXT CHA 
GET # OF FILLER CHARS. "NEEDED 
 TAND THE NULL CHAR, 
:;DOES A NULL NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 


rer 


SEQ 0080 


a 


—0 
=~ 
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PE ROUTINE SEQ 0081 


024460 0047 ? 024516 JoR PC STYPEC 3:G0 TYPE A NULL 
Oe4uge 105337 024634 DECB = SCHARCNT +:D0 NOT COUNT As A COUNT 
024470 000770 BR 7$ LOOP 
;HORIZONTAL TAB PROCESSOR 
024472 716 000040 8$: MOVB (SP) REPLACE TAB WITH SPACE 
024476 737 02451 $: JSR mc. $TYPEC T:TYPE A SPACE 
024502 737 000007 024634 BITB = #7 . SCHARCNT : BRANCH | IF NOT AT 
024510 372 BNE 7: TAB STO 
024512 726 TST (S$P)¢ +: POP Space OFF STACK 
0246514 724 BR 23 ::GET NEXT CHARACTER 
024516 STYPEC: 
024516 105777 154436 TSTB 3s @STKS :3CHAR IN KYBD BUFFER? 
024522 100022 BPL 10$ ::BR IF Not 
024524 017746 154432 MOV astKB,-(SP) [:GET CHA 
024530 042716 177600 BIC #177600,(SP) =: STRIP EXTRANEOUS BITS 
24534 122716 000023 CMPB so SOF F, (SP) T:WAS CHAR XOFF 
024540 001012 BNE 102$ ::BR IF NOT 
024542 1018: 
024542 105777 154412 TSTB = @STKS s:WAIT FOR CHAR 
024546 100375 BPL 101$ 
024550 117716 154406 MOVB a$TKB, (SP) r:GET CHAR 
024554 042716 177600 BIC #177600, (SP) ::STRIP IT 
24560 122716 000021 CMPB ss @#$XON,, (SP) SiWAS 17 KON? 
024564 001366 BNE 101$ ::BR IF NOT 
024566 1028: 
024566 005726 1ST (SP)+ rcFIX STACK 
024570 10$: 
024570 105777 154370 TSTB = @STPS ::WAIT UNTIL PRINTER IS READY 
024574 100375 BPL 10$ 
024576 116677 000002 154362 MOVB 2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
024604 122766 000015 000002 CMPB es CR, 2( SP) t:IS CHARACTER A CARRIAGE RETURN? 
024612 001003 BNE 1$ ::BRANCH IF NO 
024614 105037 024634 CLRB  $CHARCNT i SYES==CLEAR CHARACTER COUNT 
024620 000406 BR STYPEX XIT 
024622 122766 000012 000002 1S: CMPB es LF, 2( SP) 3315 CHARACTER A LINE FEED? 
024630 001402 BEQ STYPEX [BRANCH IF YES 
024632 105227 INCB (PC)+¢ = COUNT THE CHARACTER 
024634 000000 SCHARCNT : .WORD 0 Si CHARACTER COUNT STORAGE 
024636 000207 STYPEX: RTS PC 
1555 
1556 .SBTTL APT COMMUNICATIONS ROUTINE 
'MABRAREBSBAZAEBZSASZAASASZEREASESEAESSERERESEEAEESEAESESASERESESSE SESS SSS 
024640 112737 000001 025104 $atY1: MOVB = #1, SFFLG ::TO REPORT FATAL ERROR 
024646 112737 000001 025102 $ATY3: MOVB #1.$MFLG [:10 TYPE A MESSAGE 
024654 000403 BR SATYC 
024656 112737 000001 025104 SATY4: MOVB so #1, SFFLG ::10 ONLY REPORT FATAL ERROR 
¥C: 
024664 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
24 010146 MOV R1.-(SP) *:PUSH R1 ON STA 
024670 105737 025102 TSTB  —s- SMFLG 3 SHOULD TYPE A MESSAGE? 
024674 001450 BEQ 5$ NOT: 
024676 122737 000001 001230 CMPB ss WAP TENV,, SENV : SOPERATING UNDER APT? 
0247046 001031 BNE 3$ SIF ON BR 


ww 
ww 
| 


025104 


S 


ww 
ww 


WF OW— ww Swe Di ra 


AJaANOo 


Se SSS 
WW WN 
o- NNO NU 


Coo 
SeeSsss 
oow 


000040 


MATTER 
OUTINE 


000100 
000004 
000002 
001210 


001224 


001224 


001226 
000004 


000004 


024304 


025104 
001230 
001210 
000004 


025102 
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001231 


¢00004 


001210 


025014 
000004 


001212 
000004 


12$: 


E 
APTSIZE = 
APTENV = 
APTSPOOL= 
APTCSUP = 


o-oo 
o 
o 


40 


htm - SENVM +s SHOULD SPOOL MESSAGES? 


2@4(SP) ,RO 
#2,4(SP) 
SHSGTYPE 


RO, SMSGAD 
(RO)+ 


$ 
SMSGAD ,RO 
RO 


RO, SMSGLGT 
+ epaetaat: 


a4(SP),4$ 

#2,4(SP) 

177776, =(SP) 

PC, STYPE 

0 

SFFLG 

12$ 

SENV 

12$ 

SMSGTYPE 

11$ 

a4 (SP), SFATAL 
4(SP) 


#2,4 
SMSGTYPE 


NOT: BR 
T:GET MESSAGE ADDR. 
BUMP RETURN ADDR. 
2866 IF “BONE w/ LAST XMISSION? 


WA 
3:PUT ADDR IN MAILBOX 
:3FIND END OF MESSAGE 


Att 33 START OF MESSAGE 

:GET MESSAGE LNGTH IN WORDS 
i :PUT LENGTH IN MAILBOX 
:; TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
P RETURN ADDRESS 
PUSH 159946 ON STACK 
::CALL TYPE MACRO 
;;SHOULD REPORT FATAL ERROR? 
NOT: BR 
3 RUNNING UNDER APT? 
:1F NOT: BR 
i EH INISHED LAST MESSAGE? 
3:GET ERROR # s 
RETURN ADDR. 


ti: TELL abi? 0 TAKE ERROR 
[CLEAR FATAL |FLAG 
7: CLEAR LOG FUAG 


3 :FATAL FLAG 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


IPP PTT ITT t iti tii titi tit ttt t ii ii titi t ty) 
SSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 

i eSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


Be Se Be Be Be Be Be 


; *CALL 

;@ MOV 
;° TYPOS 
id -BYTE 
ed -BYTE 
-@ 

‘* 


NUM, =(SP) 


NUMBER TO BE TYPED 
::CALL FOR TYPEOUT 
ieN=1 TO R 0 FOR NUMBER OF DIGITS TO TYPE 


7:M=1 OR 
> 1=TYPE LEADING ZEROS 
:SO=SUPPRESS LEADING ZEROS 


SEQ 0082 


Fe 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0083 


-@ 
;*STYPON----ENTER HERE TO TYPE CUT WITH THE SAME PARAMETERS AS THE LAST 
de Nas OR S$TYPOC 

L: 


> *CAL 


3° MOV NUM ,-(SP) ; NUMBER TO BE TYPED 
sf TYPON 3;CALL FOR TYPEOUT 
*@ 
1 + betes atearics HERE FOR TYPEOUT OF A 16 BIT NUMBER 
s*CALL: 
7° MOV NUM,-(SP) ;zNUMBER TO BE TYPED 
sf TYPOC 3;CALL FOR TYPEOUT 
025106 017646 000000 STYPOS: MOV a(SP) ,-(SP) ::PICKUP THE MODE 
025112 116637 000001 025331 MOVB 1(SP),SOFILL ;;LOAD ZERO FILL SWITCH 
025120 112637 025333 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
025124 062716 000002 ADD #2, (SP) ;;ADJUST RETURN ADDRESS 
025130 000406 BR $TYPON 
025132 112737 000001 025331 $TYPOC: MOVB #1,$0FILL r:SET THE ZERO FILL SWITCH 
025140 112737 000006 025333 MOVB #6,S0MODE+1 szSET FOR SIX(6) DIGITS 
025146 112737 000005 025330 STYPON: MOVB #5,SO0CNT 37SET THE ITERATION COUNT 
025154 010346 MOV R3,-(SP) 7 SAVE R3 
025156 010446 MOV R4,-(SP) SZSAVE RS 
025160 010546 MOV RS,-(SP) TI SAVE RS 
025162 113704 025333 MOVB SOMODE+1,R4 3:GET THE NUMBER OF DIGITS TO TYPE 
025166 005404 NEG RG 
025170 062704 000006 ADD #6,R4 ;; SUBTRACT IT FOR MAX. ALLOWED 
025174 110437 025332 MOVB R4 , SOMODE sz SAVE IT FOR USE 
025200 113706 025331 MOVB = SOFILL, RG T:GET THE ZERO FILL SWITCH 
025204 016605 000012 MOV 12¢SP),R5 3;PICKUP THE INPUT NUMBER 
025210 005003 CLR R3 >: CLEAR THE OUTPUT WORD 
025212 006105 18: ROL R5 ; ROTATE MSB INTO “'C"’ 
025214 000404 BR 3$ ::G0 DO MSB 
025216 006105 2$: ROL RS S:FORM THIS DIGIT 
025220 006105 ROL R5 
025222 006105 ROL 
025224 010503 MOV R5,R3 
025226 006103 3$: ROL R3 3;:GET LSB OF THIS DIGIT 
025230 105337 025332 DECB SOMODE sz TYPE THIS DIGIT? 
025234 100016 BPL ::BR IF NO 
025236 042703 177770 BIC #177770,R3 S:GET RID OF JUNK 
025242 001002 BNE 4$ :: TEST FOR 0 
025244 005704 TST R4 >; SUPPRESS THIS 0? 
025246 001403 BEQ 5$ t3 F YES 
025250 005204 4$: INC RG :;DON'T SUPPRESS ANYMORE 0°'S 
025252 052703 000060 BIS #'0,R3 ::MAKE THIS DIGIT ASCII 
025256 052703 000040 5$: BIS #* oR3 3zMAKE ASCI1] IF NOT ALREADY 
025262 110337 025326 MOVB ~—s_ R33, 8S >:SAVE FOR TYPING 
025266 104401 025326 TYPE 8 ::G0 TYPE THIS DIGIT 
025272 105337 025330 7$: DECB =—s-« $OCNT >: COUNT BY 
025276 003347 BGT 2$ +:BR IF MORE TO DO 
025300 002402 BLT 6$ 3:BR IF DONE 
025302 005204 INC RG 3; INSURE LAST DIGIT ISN'T A BLANK 
025304 000744 BR 23 3:60 DO THE LAST DIGIT 
025306 012605 63%: MOV (SP)+,R5 s RESTORE RS 
025310 012604 MOV (SP)+,R4 s RESTORE R4 
025312 012603 MOV (SP)+.R3 SSRESTORE R3 
025314 016666 000002 000004 MOV 2(SP),4(SP) si SET THE STACK FOR RETURNING 


CZRMLAO 
BINARY T 


RMOS/3/2 FORMATTER 


OOOOCO°COoO 


Soest esey 
MO LO 


POPPA AAAI 
SSs2S8=238=sslceseeese 


Ww 
~“ 
No 


025472 


012616 
000 


On Hs ss 
o 
uw 
= 
o 


OO MNINUNNNOO 
oonnon o 
Nm 
Ww 


™Nm 
= 
oo 
ror 


oo 
w 
—s 
o 


06316 


Sro=rn—oooo 


ooo 
o-oo 


OCTAL (ASCI1) AND TYPE 


020200 
000020 
000055 


025550 
000040 


025540 


000001 
000060 
000040 


000010 
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4 (SP)+, (SP) 


T] 
8$: -BYTE O 
-BYTE 0 
SOCNT: .BYTE 0 
SOFILL: .BYTE 0 
SOMODE: .WORD 0 
~SBTTL 


£ STORAGE Ay ASCII DIGIT 
FOR TYPE ROUTINE 
OUNTER 


:2ZERO FILL SWITCH 
: NUMBER OF DIGITS TO TYPE 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ECT i tii ii iii iii iii iii itis) 
*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


: *REPLACED WITH SPACES. 


*CALL: 
fe MOV NUM, <(SP) 
* TYPDS 
STYPDS: 
MOV RO,-(SP) 
MOV R1.=(SP) 
MOV R2,-(SP) 
MOV R3.~(SP) 
MOV R5.-(SP) 
MOV #20200, -($P) 
MOV 20(SP).R5 
BPL © 
NEG RS 
000001 MOVB = # "=, 1( SP) 
$ CLR RO 
MOV ees R3 
MOVB ,(R3)4 
2$ CLR 
MOV SDTBL(RO),RI 
3$ SUB R1,R5 
BLT $ 
INC R2 
BR 3$ 
4$ ADD R1,RS 
TST 
BNE 
TSTB (SP) 
! 7$ 
5$ ASLB (SP) 
BCC 6$ 
177777 MOVB = 1( SP), -1(R3) 
6$: BIS #'0,R2 
7$: B1S a’ “R2 
MOVB = R2, (R3) + 
TST (RO) + 
CMP RO, #10 
BLT 2$ 
BGT 8$ 
MOV RS,R2 
BR 6$ 


37PUT THE BINARY NUMBER ON THE STACK 
3:G0 TO THE ROUTINE 


3zPUSH RO ON STACK 
: PUSH R1 ON STACK 


7 7MAKE THE BINARY NUMBER POS. 

7:MAKE THE ASCII NUMBER NEG. 

::ZERO THE CONSTANTS INDEX 

::SETUP THE OUTPUT POINTER 

::SET THE FIRST CHARACTER TO A BLANK 
::;CLEAR THE BCD NUMBER 

::GET THE CONSTANT 

: FORM THIS BCD DIGIT 


:BR IF DONE 
:: INCREASE THE BCD DIGIT By 1 


;;ADD BACK THE CONSTANT 
7;CHECK IF BCD DIGIT=0 
73FALL THROUGH IF 0 

peat ees “1 ae LEADING 0°S? 


3:;BR IF NO 

77 YES--SET THE SIGN 

72MAKE THE BCD DIGIT ASCII] 

_— IT A SPACE IF NOT ALREADY A DIGIT 
7;PUT THIS anh IN THE OUTPUT BUFFER 


::G0 DO THE NEXT DIGIT 
TO EXIT 


3:GET THE LSD 
3:60 CHANGE TO ASCII 


SEQ 0084 


7 P 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0085 
025474 105726 8$: TSTB (SP)¢ 2 WAS THE LSD THE FIRST NON-ZERO? 
025476 100003 BPL 9$ IF NO 
025500 116663 177777 177776 MOVB =-1(SP),-2(R3) 2: YES==SET THE SIGN FOR TYPING 
025506 105013 9$: CLRB (R3) 37SET THE TERMINATOR 
025510 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
025512 012603 MOV (SP)4+,R3 s;POP STACK INTO R3 
025514 012602 MOV (SP)4,R2 ;zPOP STACK INTO R2 
025516 012601 MOV (SP)4+,R1 3;POP STACK INTO RI 
025520 01260 MOV (SP)+,RO : sPOP STACK INTO RO 
025522 104401 025550 TYPE SDBLK szNOW TYPE THE NUMBER 
025526 016666 000002 009004 MOV 2(SP) ,4(SP) SS ADJUST THE STACK 
025534 012616 MOV (SP)+. (SP) 

025536 000002 RT] ssRETURN TO USER 
025540 023420 $DTBL: 10000. 
025542 001750 1000. 
025544 000144 100 
025546 000012 10. 
fa 025550 SDBLK: .BLKW 4 
1562 -SBTTL TTY INPUT ROUTINE 
Perea kaneeeeeeeeeereeeeee eee eee keeeeeKeeeReneneetateeeeeeene 
* ENABL LSB 
025560 000000 $TKCNT: .WORD 0 : NUMBER OF ITEMS IN QUEUE 
025562 000000 STKQIN: .WORD 0 :; INPUT POINTER 
025564 000000 $TKQOUT: .WORD 0 ; OUTPUT POINTER 
025566 STKQSRT: .BLKB 7 sz; TTY KEYBOARD QUEUE 
025575 STKQEND=, 
s*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
s*CALL: 
* JSR PC,STKINT 
7* RETURN 
025576 005037 025560 STKINT: CLR STKCNT a COUNT OF ITEMS IN QUEUE 
025602 012737 025566 025562 MOV #STKQSRT.STKQIN : MOVE THE STARTING ADDRESS OF THE 
025610 013737 025562 025564 MOV STKQIN, STKQOUT QUEUE INTO THE INPUT & OUTPUT POINTERS. 
025616 012737 025646 000060 MOV #STKSRV, Aa TKVEC se INITIALIZE THE KEYBOARD VECTOR 
025624 012737 000200 000062 MOV #200, a#TKVEC+2 ::"BR' LEVEL 4 
025632 005777 153324 TST asTKB 3s: CLEAR DONE FLAG 
025636 012777 000100 153314 MOV #100, aSTKS >: ENABLE TTY KEYBOARD INTERRUPT 
025644 000207 RTS PC ; RETURN TO CALLER 


;*TK SERVICE ROUTINE 

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:*1T IN THE QUEUE. ss 

*1F THE CHARACTER IS A "‘CONTROL-C'' (*C) STKINT IS CALLED AND 

;*UPON RETURN EXIT 1S MADE TO THE “CONTROL~C'' RESTART ADDRESS (@CNTLC) 


025646 117746 153310 $1KSRV: MOVB a$TKB,-(SP) ::PICKUP THE CHARACTER 
025652 042716 177600 BIC #°C177, (SP) *:STRIP THE JUNK 
025656 021627 000003 CMP (sb).a8 *:1S IT A CONTROL C? 
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INPUT ROUT] SEQ 0086 

025662 001007 BNE 1$ ::BRANCH IF NO 

025664 104401 026767 1YPE ,SCNTLC :: TYPE A CONTROL=C (*C) 

025670 004737 025576 JSR PC. STKINT ::INIT THE KEYBOARD 

025674 005726 TST (SP)¢+ [:CLEAN UP STACK 

025676 000177 153472 JMP acNnTLe i: CONTROL C RESTART 

025702 021627 000007 1$: CMP (SP) #7 ::1S IT A CONTROL 6? 

025706 001004 BNE 2$ ;;BRANCH IF N 

025710 022737 000176 001154 CMP ASWREG, SWR :1$ SOFT- Sune SELECTED? 

025716 001500 BEQ 6$ +:60 TO SWR CHANGE 

025720 2$: 

025720 022737 000007 025560 CMP #7, STKCNT ::1S THE QUEUE FULL? 

025726 001004 BNE 3$ ::BRANCH IF NO 

025730 104401 001200 TYPE » $BELL ::RING THE TTY BELL 

025734 005726 TST (SP)¢ ii CLEAN CHARACTER OFF OF STACK 

025736 000451 BR 5$ XIT 

025740 021627 000023 3$: CMP (SP) #23 t:1S IT A CONTROL-S? 

025744 001021 BNE 32$ ::BRANCH IF NO 

025746 005077 153206 CLR astKS ::DISABLE TTY KEYBOARD INTERRUPTS 

025752 005726 TST (SP)¢+ *:CLEAN CHAR OFF STACK 

025754 105777 153200 31$: TSTB astKs sz;WAIT FOR A CHAR 

025760 100375 BPL 31$ ::LOOP UNTIL ITS THERE 

025762 117746 153174 MOVB a$TKB,-(SP) 3;:GET THE CHARACTER 

025766 042716 177600 BIC #°C177, (SP) t:MAKE IT 7-BIT ASCII 

025772 022627 000021 CMP (SP)+, #21 3:18 IT A CONTROL-Q? 

025776 001366 BNE 31$ ::BRANCH IF NO 

026000 012777 000100 153152 MOV #100, ,asTKS So ba TTY KEYBOARD INTERRUPTS 

026006 000002 RTI RETURN 

026010 005237 025560 328: INC STKCNT : COUNT THIS CHARACTER 

026014 021627 000140 CMP (SP) ,#140 :1S 17 UPPER CASE? 

026020 002405 BLT 4$ ::BRANCH IF YES 

026022 021627 000175 CMP (SP), #175 ::1S IT A SPECIAL CHAR? 

026026 003002 BGT 4$ ::BRANCH IF YES 

026030 042716 000040 BIC #40, (SP ::MAKE IT UPPER CASE 

026034 112677 177522 4$: MOVB = (SP)+, aS TKOIN :7AND PUT IT IN QUEUE 

026040 005237 025562 INC STKQIN ‘UPDATE THE POINTER 

026044 023727 025562 025575 CMP STKQIN, #STKQEND 3360 OFF THE END? 

026052 001003 BNE 5$ :BRANCH IF NO 

026054 012737 025566 025562 MOV #STKOSRT,STKQIN :ERESET THE POINTER 

026062 000002 5$: RTI ::RETUR 
PLUM ARAARAKAKe RH eee eee eee eke Kkeeeeeekeeeeeeeeeeneeeee 
> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
S*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, Wit 
s*SERVICE THE TEST FOR CHANGE IN SOF TWARE SuITCN REGISTER TRAP 
-*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 

U26064 022737 000176 001154 $CKSWR: CMP #SWREG, SWR s:1S THE SOFT-SWR SELECTED 

026972 001124 BNE 15$ S:EXIT IF NOT 

020074 105777 153060 TSTB = @STKS *:1S A CHAR WAITING? 

026100 100121 BPL 15$ *:1F NOT, EXIT 

026102 117746 153054 MOVB  a$TKB,-(SP) YES 

026106 042716 177600 BIC #°C177, (SP) + = MAKE Mt cpeBlt ASCII 

026112 021627 000007 CMP (SP) ,# ::1S IT A CONTROL-G? 

026116 001300 BNE 2$ iif NOt pul IT IN THE TTY QUEUE 


LS eet eeweeeereeerereteeeeresteeeneneneeeeeeeeeeeeeee eee ee 


CZ 
TTY 


RMLAO a tt fF FORMATTER 


INPUT ROUTIN 


026202 


026204 
026210 


026214 


026250 


026254 


026272 


026274 
02 


100375 


117746 
042716 


021627 


000177 


021627 


001150 


025576 
153016 
000001 
027001 
027006 
000176 


027017 
152756 
152752 
177600 
000003 
026767 
000006 
001151 
000100 
153120 
000025 


026774 
000006 


000015 
000004 
esa 


: 
001151 
000100 


024516 
000060 


000067 
000060 
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600001 


001151 


000001 
152710 


152636 


000001 - 


152614 


s*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 


s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
* gangs A eoe * Mee Fes THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


é$: 


T 
SGTSWR: 


19$: 
7$: 


20$: 


(SP)+ 

PC ,STKINT 
$TKS 
#1,SINTAG 
»SCNTLG 

, SMSWR 
SWREG,=(SP) 
, SMNEW 
-(SP) 


- (SP) 
asTKs 
7$ 


a$TKB,-(SP) 
#°C177, (SP) 
(SP), #3 

9$ 

/SCNTLC 
#6,SP 
SINTAG, #1 
ay 

#100, a$TKS 
ACNTLC 


(SP) ,#25 
10$ 


15 
#100, a8tKs 


PC ,STYPEC 
(SP) ,#60 
18% 


aaa 
#60,(SP)+ 


7 ;ARE WE ety IN AUTO-MODE? 
; sBRANCH YES 

:: CLEAR CONTROL - G OFF Sete 
:-FLUSH THE TTY INPUT QUEUE 
;:DISABLE TTY KEYBOARD INTERRUPTS 
:2SET INTERRUPT MODE INDICATOR 


3:ECHO THE CONTROL=G (*G) 
33 TYPE CURRENT CONTENTS 
+3 SAVE SWREG FOR TYPEOUT 
O TYPE=-OCTAL -~ ahaiaass DIGITS) 
: = PROMPT FOR NEW SWR 
3;CLEAR COUNTER 
37: THE NEW SWR 
3; CHAR THERE? 
3z1F NOT TRY AGAIN 


::PICK UP CHAR 
33MAKE IT 7-BIT ASCII 


3:18 17 A CONTROL=-C? 

;;BRANCH IF NOT 

ss YES, mY —— C (*C) 
::CLEAN UP STAC 

7 sREENABLE TTY KEYBOARD INTERRUPTS? 
: BRANCH IF NO 

::ALLOW TTY KEYBOARD INTERRUPTS 
::CONTROL-C RESTART 


3231S 1T A CONTROL-U? 
;;BRANCH IF NOT 

3:YES, ECHO CONTROL-U (“U) 
3; 1GNORE PREVIOUS INPUT 
s:LET'S TRY IT AGAIN 


3718 IT A <CR>? 
3;BRANCH IF NO 
ss ves. a. a FIRST CHAR? 


D< 
ae ae ao KBD INTERRUPTS? 
;;RE-ENABLE TTY KBD INTERRUPTS 


+: ECHO CHAR 
::CHAR < 0? 

7 ;BRANCH IF YES 
3:CHAR > 7? 
7;BRANCH IF YES 
sr STRIP-OFF ASCI! 


SEQ 0087 


CZR 
TTY 


MLAO git fs FORMATTER 


INPUT 
026372 


026424 


026426 


026514 


026516 


026560 


000720 


011646 


000002 
005737 


000002 


——o0o0— +0000 
o-oCoon oon —- oOo — 


000002 


000002 
177776 


001204 


000004 
000004 


026452 


025560 
025560 


025564 
025566 


026752 
026767 


000177 


000134 
026750 


kK 7 
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000002 


000004 
025575 
025564 


026750 


SEQ 0088 

TST 2(SP) s:1S THIS THE FIRST CHAR 

BEQ 17$ S:BRANCH IF YES 

ASL (SP) ‘:NO, SHIFT PRESENT 

ASL (SP) i CHAR OVER TO MAKE 

ASL (SP) ROOM FOR NEW ONE. 
17$: INC 2(SP) S:KEEP COUNT OF CHAR 

BIS =2(SP), (SP) ::SET IN NEW CHAR 

BR $ +:GEi THE NEXT ONE 
18$: «TYPE $QUES S: TYPE 2<CR><LF> 

20$ ::SIMULATE CONTROL-U 


BR 
-DSABL LSB 


UIST i iii iii ii iii iti iii iii iti titi itt) 
:ATHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
LL: 


7° RDCHR 3:GET A CHARACTER FROM THE QUEUE 
3* RETURN HERE 3; CHARACTER IS ON THE STACK 
st ;;WITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP) ,-(SP) a DOWN THE PC AND 
MOV 4(SP),2(SP) PS 
CLR 4(SP) : oer READY FOR A CHARACTER 
CLR -(SP) 7;PUT NEW PS ON STACK 
MOV #64$,-(SP) :7;PUT NEW PC ON STACK 
ae RT] 3;POP NEW PC AND PS 
1$: ka a zzWAIT ON A CHARACTER 
DEC STKCNT frst i counten 
MOVB SSTEQOUT, 4(SP) :GET ONE C CTER 
INC $TKQOUT UPDATE THE ‘PO! NTER 
CMP $TKQOUT, #STKQEND’ "21D 1T GO OFF OF THE END? 
BNE 2 ;;BRANCH IF NO 
MOV #STKQSRT »$TKQOUT i gRESET THE POINTER 
2s: RTI 7 ;RETURN 
PERRET ekkekeeekeateeeeeeeae 
sSTHIS, ROUTINE WILL INPUT A STRING FROM THE TTY 
Lis 
ie RDLIN 72 INPUT A STRING FROM THE TTY 
sf RETURN HERE ; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
yt 7; TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3,-(SP) 7 SAVE R3 
CLR -(SP) :CLEAR THE RUBOUT KEY 
1$: MOV #STTYIN,R3 SIGET ADDRESS 
2$: CMP @STTYINA15,R3 sseureee FULL? 
BLOS 4% YES 
RDCHR : :G0 READ. one CHARACTER FROM THE TTY 
MOVB (SP)+,(R3) :2GET CHARACTER 
10$: CMPB #177, (R3) sIS ITA RUBDUT 
BNE 5$ :IBR IF NO 
TST (SP) 3218 THIS THE FIRST RUBOUT? 
BNE 6% ss FON 
MOVB #'\,9% 37 TYPE A BACK SLASH 
TYPE % 


L 7? | 
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TTY INPUT ROUTINE SEQ 0089 
026564 012716 177777 MOV #-1, (SP) ;3SET THE RUBOUT KEY 
026570 005303 6$: DEC R3 : SBACKUP BY ONE 
026572 tH 026752 CMP R3,#S$TTYIN ;STACK EMPTY? 
026576 103434 BLO 4$ ::BR IF YES 
026600 111337 026750 MOVB = (R3),, 98 3 SETUP TO TYPEOUT THE DELETED CHAR. 
26606 104401 026750 TYPE . 9% TYPE 
026610 000746 BR os +:G60 READ ANOTHER CHAR. 
026612 005716 5$: TST (SP) ::RUBOUT KEY SET? 
026614 001406 BEQ 7$ ‘BR IF 
026616 112737 000134 026750 MOVB so #"\,9$ Si TYPE A NBACK SLASH 
026624 104401 026750 TYPE ,9$ 
026630 005016 CLR (SP) 3;CLEAR THE RUBOUT KEY 
026632 122713 000025 7$: CMPB ss #25, (R3) :i1$ CHARACTER A CTRL U? 
26636 001003 BNE at F NO 
026640 104401 026774 TYPE SCNTLU >: TYPE A CONTROL "'U"' 
026644 000726 BR +:G0 START OVER 
026646 122713 000022 8$: CMPB ss #22, (R3) [:1S CHARACTER A ‘"*R'’? - 
026652 001011 BNE 3$ >:BRANCH IF NO 
026654 105013 CLRB (3) 33 CLEAR THE CHARACTER 
026656 104401 001205 TYPE  ,$CRLF sau 6 “is” 
026662 104401 026752 TYPE $TTYIN +: TYPE THE INPUT STRING 
026666 000717 BR 4$ 3360 PICKUP ANOTHER CHACTER 
026670 104401 001204 4$: TYPE  ,$QUES : TYPE A 
026674 000712 BR is TI CLEAR THE BUFFER AND LOOP 
026676 111337 026750 3$: MOVB = (R3) ,9$ S:ECHO THE CHARACTER 
026702 104401 026750 TYPE, 
026706 122723 000015 CMPB ss #15, (R3) + ::CHECK FOR RETURN 
026712 001305 BNE 2$ ::LOOP IF NOT RETURN 
026714 105063 177777 CLRB: =1(R3) SiCLEAR RETURN (THE 15) 
026720 104401 001206 TYPE ,$LF ::TYPE A LINE FEED 
026724 005726 TST (SP)+ ::CLEAN RUBOUT KEY FROM THE STACK 
026726 012603 MOV (SP)+,R3 SSRESTORE R3 
026730 011646 MOV (SP) ,-(SP) ‘ADJUST THE STACK AND PUT ADDRESS OF THE 
026732 016666 000004 000002 MOV 4(SP),2(SP) i FIRST ASCII CHARACTER ON IT 
026740 012766 026752 000004 MOV #STTYIN, 4 (SP) 
026746 000002 RTI :RETURN 
026750 000 19$: .BYTE 0 tISTORAGE FOR ASCII CHAR. TO TYPE 
026751 000 : -BYTE 0 >: TERMINATOR 
026752 STTYIN: .BLKB 15 +: RESERVE 13, BYTES FOR TTY INPUT 
026767 136 103 015 $CNTLC: .ASCIZ /*C/<15><12> CONTROL 
026774 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> =: CONTROL g! 
027001 136 107 015 $CNTLG 12 /*G/<15><12>  —- :CONTROL ''G'" 
027006 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = / 
ao 027017 040 040 116 $MNEW: .ASCIZ / NEW = / 
1564 .SBTTL POWER DOWN AND UP ROUTINES 
se eeeekeeeeeeeeeeeeeeeeeeeee eee eeeteeereeee ees 
“POWER DOWN ROUTINE 
027030 012737 027174 000024 $PWRDN: MOV #SILLUP, a#PWRVEC i gSET FOR FAST UP 
27036 012737 000340 000026 MOV #340, a#PWRVEC+2 iP RI0:7 
027044 010045 MOV RO, -(SP) PUSH RO ON STACK 
027046 010146 MOV R1.-(SP) *:PUSH R1 ON STACK 
027050 010246 MOV R2,-(SP) 77PUSH R2 ON STACK 
027052 010346 ; MOV R3.-(SP) >:PUSH R3 ON STACK 
027054 010446 MOV R4.=(SP) >:PUSH RG ON STACK 
027056 010546 MOV RS. =(SP) >:PUSH RS ON STACK 


2 


| CZRMLAO vay gf B FORMATT 
, POWER DOWN A ouT] 


OoOoooooooooooooooo 
NNAAAOUE S&S EWU S| O 
FOLMOS LW LOL or 


oooo 
~m 
—s 
~“ 
FrNuoe &£r 


027202 


027216 


604 


Oo OOOCOOCOOCOoCoooooo 
RIS a a ot ot 1 OOO — 
Pt ee PY Fete ported 


027030 
000340 


042 


000004 


000060 


027246 
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000024 


000024 


000024 
000026 


120 


MOV aSwR,-(SP) Sat fo ae ON STACK 
MOV SP, $SAV R6 
et #SPWRUP, aePWRVEC 5 eoET oP VECTOR 

72 3 7HANG UP 


UREA RARAAAAEAE EA TE ATE ET ATER KARAARATKAeeAKeeeKeeeeeetetene 
“POWER UP ROUTINE 
$PWRUP: MOV SILLUPQ#PURVEC :gSET FOR FAST DOWN 


MOV SA 
CLR SSAVR6 ‘:WAIT LOOP FOR THE TTY 
1$: INC SSAVRO S3WAIT FOR THE INC 
BNE 1$ WORD 
MOV (SP) +, aSwR ::POP STACK INTO aSwR 
MOV (SP)+_R5 +:POP STACK INTO R5 
MOV (SP)+.RG ‘:POP STACK INTO R4 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+_R2 +:POP STACK INTO R2 
MOV (SP)+.R1 =:POP STACK INTO RI 
MOV (SP)+_RO ::POP STACK INTO RO 
MOV #SPWRON, @#PWRVEC ::SET UP THE POWER DOWN VECTOR 
MOV #340 ,a#PWRVEC+2 ;:PRIO:7 
TYPE ::REPORT THE POWER FAILURE 
SPWRMG: .WORD $POWER : POWER FAIL MESSAGE POINTER 
MOV (PC)+, (SP) S:RESTART AT BEGINZ 
SPWRAD: WORD BEGIN S:RESTART ADDRESS 
$ILLUP: HALT ::THE POWER UP SEQUENCE WAS STARTED 
BR -2 +: BEFORE THE POWER DOWN WAS COMPLETE 


SSAVR6: 0 j.;PUT THE SP HERE 
SPOWER: .ASCIZ <CRLF>/“'POWER UP"? 


-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


PREAH A ERK KA AAA 


eTHIS ROUTINE IS USED TO TYPE AN ASCI1Z NUMBER SUPPRESSING THE 
a NUMBERS. 


“bed MOV WNUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
:* JSR PC ,a#SSUPRS 
$SUPRS: MOV RO,-(SP) 7: SAVE RO 
MOV 4(SP),R0 :;PICKUP THE POINTER 
1$: TSTB (RO) Oe gs a 
BEQ 2$ 7BR 


IF 
CMPB cw ttee iis fe ASCII ‘0° ? 
2$: DEC RO ::BACKUP BY ‘'1"* 


MOV RO,3$ 3; SAVE FOR TYPING 
TYPE 3:60 TYPE 
3$: -WORD 0 :3ASCIZ POINTER GOES HERE 
MOV (SP)+,RO R 
MOV (SP)+, (SP) i ERESTORE THE STACK 
RTS PC ; RETURN 


~SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


SEQ 0090 


~CTRMLAO RM05/3/2 FORMATTER 


SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


027256: 
02 


027306 


027312 


027414 


016637 
0 


000000 


000002 027306 
027306 


000002 
000000 


000002 
027472 
000002 


000012 
027422 
027424 


000060 


7 
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027410 


‘ 


PE lleheiiditidtd dd hhh hhh hhh hhh hhh PP ED 


TaTHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY estas TO AN 
*UNSIGNED DECIMAL ASCIZ NUMBER. 


> *CALL 
5° MOV NUMBER ,-(SP) :;PUT BINARY NUMBER ON THE STACK 
7° JSR PC ,a#$SB20 +e CALL 
7* RETUPN :zADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
$SB2D: MOV 2(SP),1$ ::SAVE BINARY NUMBER 

MOV #1$,-(SP) :;SET POINTER 

JSR PC ,a#$DB2D 3;CALL DOUBLE LENGTH CONVERT 

ADD #5, (SP) :;ONLY ALLOW FIVE CHARACTERS 

MOV (SP)+,2(SP) :;PICKUP POINTER 

RTS PC 3; RETURN 
1$: -WORD 0,0 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


FERRARA EAE TERA AEA AAA RERAAEAEAAHRKAKEREEKeE eee ee 


s*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
;*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


i #POSITIVE 
*CALL 
ie MOV #PNTR,-(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
:* JSR PC ,av$DB2D 
te RETURN sr THE FIRST ADDRESS OF ASCIZ 
::1$ ON THE STACK 
$DB2D: SAVREG sr SAVE REGISTERS 
“OV 2(SP),R2 >:PICKUP THE DATA POINTER 
"OV #SDECVL,RO S:GET ADDRESS OF "'SDECVL'' STRING 
MOV RO, 2(SP) S:PUT ADDRESS OF ASCIZ STRING ON STACK 
MOV (R2)+,R1 [:PICKUP THE BINARY NUMBER 
MOV (R2)+.R2 
MOV #10.,4$ ::SET UP TO DO 10 CONVERSIONS 
MOV #STNPWR, RG [SADDRESS OF TEN POWER 
MOV #STNPWR42,R5 — - 
1$: CLR R3 S:CLEAR PARTIAL 
2$: su (R4),R1 ::SUBTRACT TEN POWER 
SUB (R5) ,R2 
BLT 33 ::BR'IF TEN POWER TO LARGE 
INC R3 i EADD 1 TO PARTIAL 
BR 23 p 
3$: ADD (R4)+ RI +E RESTORE SUBTRACTED VALUE 
ADD (R4)+,R2 
CMP (R5)4 (RS) 4 ::MOVE TO NEXT TEN POWER 
BIS #'O,R3 Z:CHANGE PARTIAL TO ASCII 
MOVB  _R3, (RO)+ TiSAVE IT 
DEC (PC)¢4 :: 
4$: “WORD 0 
BNE 1$ ;:;BR IF NO 
CLRB (RO) =: TERMINATOR 


SEQ 0091 


CZRMLAO RMOS/3/2 FORMATTER MACRO v03.01 "heuraa” 13:01:23 PAGE iba 


DOUBLE LENGTH BINARY TO DECIMAL ASCI] CONVERT ROUTINE SEQ 0092 
02741 1044613 RESREG a 3 Mt REGISTERS 
03% g 000207 He PC f URN 
74 145 STNPWR: 14 990 1.0E09 
$570 4 035632 356 
027426 160400 490400 argent 
0274 ; {dst 2 §3 
0274 113200 113200 321.0€07 
0274 000230 230 
0274 041100 041100 371.0E06 
027440 000017 17 
027442 103240 103240 371.0€05 
027444 000001 1 
027446 023420 23420 371.0E04 
027450 000000 0 
027452 001750 1750 371.0€03 
027454 0 
027456 000144 144 771.0E02 
027460 00 0 
027462 000012 12 371.0€01 
027464 000000 0 
027466 000001 1 321.0€00 
027470 000000 0 
1572 027472 SDECVL: .BLKB 12. 7 RESERVE STORAGE FOR ASCIZ STRING 
1573 -SBTTL SAVE AND RESTORE RO-RS ROUTINES 
3 RRR AAAAAARAEHEEHEEEEee eee eeeeeeeeheeKeeeeeenaneeneeneeeeneneee 
+ #SAVE RO-R5 
geCALL: SAVREG 
: SUPON RETURN FROM $SAVREv THE STACK WILL LOOK LIKE: 
:*TOP=--(+16) 
p* +2-—=(418) 
jt $4---R5 
Tt 46---RG 
3® +B---R3 
3*410---R2 
3 #412---R1 
7#414---R0 
027506 SSAVREG: 
027506 010046 MOV RO,-(SP) 37PUSH RO ON STACK 
027510 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 
027512 010246 MOV R2,-(SP) 77PUSH R2 ON STACK 
027514 010346 MOV R3,-(SP) 77PUSH R3 ON STACK 
027516 010446 MOV R4,-(SP) 3;PUSH R4& ON STACK 
027520 010546 MOV R5,-(SP) 77PUSH RS ON STACK 
027522 016646 000022 MOV 22(SP),-(SP) 3: SAVE PS OF MAIN FLOW 
OS eats 016646 000022 MOV 22(SP),-(SP) 7: SAVE PC OF MAIN FLOW 
027532 016646 000022 MOV 22(SP),-(SP) :;SAVE PS OF CALL 
27536 016646 000022 MOV 22(SP),-(SP) 7 ;SAVE PC OF CALL 
027542 000002 RT] 


s*RESTORE RO-R5 


CALL: 
3 RESREG 


~CARMLAO RMOS/3/2 FORMATTER 


SAVE AND RESTORE RO-R5 ROUTINES 


Ooocoooooceo°ooo 
Rrerororernsporefpernener 


027602 
0 


027622 


027624 
027626 
027634 


027650 
027652 
027654 


sosssssssss 
— — ss ss 
Sronroronsroeproproreror 


027624 


025334 
026154 


027544 


pps 
00002 
00002 
00002 


000002 


027636 


000004 000002 


C 
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SEQ 0093 


SRESREG: 
MOV (SP)+*,22(SP) + RESTORE PC OF CALL 
MOV (SP)+,22(SP) zsRESTORE PS OF CAL 
MOV (SP)+,22(SP) ssRESTORE PC OF MAIN FLOW 
MOV (SP)+,22(SP) pi tN PS - one FLOW 
MOV (SP)+,R5 :3POP STACK INT 
MOV (SP)4,R4 33POP STACK INTO Ra 
MOV (SP)+,R3 ;3POP STACK INTO R3 
MOV (SP)+,R2 3;POP STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO RI 
st} (SP)+,R0 ::POP STACK INTO RO 


-SBTTL TRAP DECODER 


CPP i iii iiiiitiii iii) 

SS THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘TRAP’ INSTRUCTION 

: © AND USE I1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
; *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 7 SAVE RO 
M LIGET ny fi _— 


TST -(RO) > sBACKUP 
::GET RIGHT BYTE OF TRAP 


ASL R ::POSITION FOR INDEXING 
MOV STRPAD(RO),RO ;; INDEX TO TABLE 
RTS RO 3:60 TO ROUTINE 


:;THIS IS USE TO HANDLE THE ‘'’GETPRI'’ MACRO 


STRAP2: MOV (SP) ,-(SP) ::MOVE THE PC DOWN 
MOV 4(SP),2(SP) ;;MOVE THE PSW DOWN 
RT] ;;RESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE ew ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “‘TRAP’’ INSTRUCTION 


; ROUTINE 

$TRPAD: .WORD $TRAP2 
$TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
STYPOC ::CALL=TYPOC TRAP#2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ::CALL=TYPOS  TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ::CALL=TYPDS  TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


SGTSWR = ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT~SWR 
SRDCHR +3 CALL= ROCHR TRAP#+10(104410) TTY TYPEIN CHARACTER ROUTINE 
SROLIN ;;CALL=ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
SSAVREG STCALL= SAVREG TRAP+12(104412) SAVE RO-R5 ROUTINE 

SRESREG ;;CALL=RESREG  TRAP#+13(104415) RESTORE RO-R5 ROUTINE 


Wwnr—o 


ane te FORMATTER 


) 
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SEQ 0094 


CZRMLAO RMO5S/3/2 FORMATTER 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980 


027676 
027677 
027700 


NRMODNAUE WN — OOO UFWWH—OOOnOuUfr wr 


WRIPOPINIPOPINPININDYS — ss es 


42 027707 


-SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980 
sNEW DRIVE TYPE 1D FOR RMO2 eereneeece 


310-AUG=77 seeeererere 

;10-MAR=78 THE SC, ot CHANGES 

sNEW DRIVE TYPE 1D F RMOS eeeeeerene 
[FEBRUARY 1980 RAs Rn. 


;COPYRIGHT (C) 1977 

:DIGITAL EQUIPMENT CORP. 
;MAYNARD, 017 

;AUTHOR(S): JIM LACEY/CHUCK HESS/ 


b PURER AAARA AREA ETE AREKeT eek Kee eKeeHe eeetetenenaeteneketene 


STORAGE FOR RMDS, a4 RMER2, AND RMMR2 ON AN ERROR *'2"' 
;RMERRS RMDS 


= 
;RMERRS#2 = RMERI 
sRMERRS+4 = RMER2 
;RMERRS+6 = RMMR2 


027666 000000 000000 000000 RMERRS: .WORD 0,0,0,0 


; TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
sDRVACT=0 IF DRIVE IS IDLE 
:DRVACT>O IF DRIVE 1S ACTIVE WITH A COMMAND 
;DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERAT'ON 
DRVACT: .BYTE 0 ;DRIVE 0 
-BYTE 0 sDRIVE 1 
-BYTE 0 sDRIVE 2 
-BYTE 0 sDRIVE 3 
-BYTE 0 sDRIVE 4 
-BYTE 0 :DRIVE 5 
BYTE 0 DRIVE 6 
BYTE 0 sDRIVE 7 
; TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
sDRVSTA=0 IF DRIVE 1S OFFLINE OR NONEXSITENT 
sDRVSTA>O IF DRIVE 1S ONLINE 
DRVSTA<O IF DRIVE IS UNSAFE 
DRVSTA: .BYTE 0 sDRIVE 0 
-BYTE 0 :DRIVE 1 
-BYTE 0 sDRIVE 2 
-BYTE 0 :DRIVE 3 
BYTE 0 sDRIVE 4 
-BYTE 0 :DRIVE 5 
-BYTE 0 :DRIVE 6 
-BYTE 0 sDRIVE 7 
;TABLE OF DRIVE TYPES (DRVTYP=8 BYTE 
sDRVTYP=0 IF DRIVE IS NONEXTS TENT (DRVSTA=0, ALSO) 
sDRVTYP=7 IF DRIVE 1S RMOS eeeeee 
sDRVTYP=5 IF DRIVE IS RMO2 s#eee8 
;DRVTYP=4 IF DRIVE IS _RMO3 
;DRVTYP=-1 IF NOT RMO5S/3/2 


SEQ 0095 


a3 


ww «=m, 


mOS/ 
D 


ao 
*-o +o 


63 027727 
027730 


86 027750 


92 027752 


cw 
ES 
So 


ORMATTER 


~e 


000000 


000000 


000 
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DRVTYP: .BYTE 0 DRIVE 0 
BYTE O sDRIVE 1 
-—BYTE O DRIVE : 
-BYTE 0 DRIVE 
BYTE OQ DRIVE 4 
BYTE 0 DRIVE 5 
BYTE 0 sDRIVE 6 
-—BYTE 0O DRIVE 7 
; TABLE OF sh PORT INITIALIZATION INDICATORS 
sDPINT=0 IF INITIALIZATION JS NOT geteeee A a THE DRIVE 
SOPINT<O IF INITIALIZATION IS IN PROGRESS 
DPINT: .BYTE 0 DRIVE 0 
-BYTE 0 ;DRIVE 1 
BYTE 0 sDRIVE 2 
-BYTE 0 sDRIVE 3 
BYTE 0 ;DRIVE 4 
BYTE 0 DRIVE 5 
-BYTE 0 sDRIVE 6 
-BYTE 0 *; DRIVE 7 


; TABLE OF PENDING DUAL PORT REQUESTS 
sDPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
:DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPRQS: .BYTE 0 :DRIVE 0 
-BYTE 0O sDRIVE 1 
-BYTE 0 sDRIVE 2 
-BYTE 0 sDRIVE 3 
-BYTE 0 :DRIVE 4 
-BYTE 0 :DRIVE 5 
-BYTE 0 :DRIVE 6 
-BYTE 0 :DRIVE 7 


; TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
THIS 1S A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
:DPB'’ OF THE 1/0 OPERATION, 


TRNSWT: .WORD 0 
SEARCH WAIT KEYS (SRCHWT=1 WORD) 
THIS 1S A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
THE DRIVES THAT ARE of ti A SEARCH COMMAND a THE 1/0 
;REQUEST THAT 1S AT THE TOP OF THEIR REQUEST QUEUE 
SEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR ORIVE 0. 
SRCHWT: .WORD 0 
;RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
sACTORV=0 IF DRIVER IS INACTIVE 
ACTDRV>0 IF DRIVER IS ACTIVE 
ACTDRV: .BYTE 0 


SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 


SEQ 0096 


CZRML 


RMLAO RMOS/3/2 FORMATTER 


MACRO V03.01 11-APR-80 13:01:23 PAGE ihe 


SINGLE/DUAL PORT RH/RM DRIVER (REV 6. 2) FEBRUARY 1980 


95 
96 


97 
98 027753 


—t 4 + > ts 
SARALLSS 


027774 


027776 


AW AAAIAII WP NNN NPP nn 
ONO UE WN — OC OONO UE Wh —-O0OOn 


000 


000000 


177777 


a i ca a 
SNS 
{NNN NS 
NSN NSS 
i ei te Be ie | 
NNN NN 


sACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 

sACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 
ACTSTR: .BYTE 0 
;UNLOAD FLAG (ULDFLG=8 BYTES) 

;ULDFLG=0 IF NO UNLOAD COMMAND 

SULDFLG>O IF UNLOAD COMMAND IN PROGRESS 

;ULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 
ULDFLG: .BYTE 0 DRIVE 0 

BYTE O DRIVE 1 

-BYTE 0O DRIVE 2 

-BYTE OQ DRIVE 3 

-BYTE 0 sDORIVE 4 

BYTE O DRIVE 5 

-BYTE 0 sDRIVE 6 

-BYTE 0O sDRIVE 7 


;LOOK AHEAD COUNT (LACNT=8 BYTES) 
sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


LACNT: .BYTE 0 sDRIVE 0 
-BYTE 0 :DRIVE 1 
-BYTE 0 sDRIVE 2 
BYTE 0 sDRIVE 3 
BYTE 0 :DRIVE 4 
-BYTE 0 :DRIVE 5 
-BYTE 0 sDRIVE 6 
-BYTE 0 sDRIVE 7 


; SAVE wae 5M FLAG (SAVEFG =1 WORD) 
FG <0 IF SAVE THE RH/RM REGISTERS WHEN THE 
‘OPERATION 1S COMPLETED AS PER (DPB+14). 
;SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
;(DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


; SEEK FLAG tobe Syed 1 WORD) 
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T a. THE WINDOW 
;FOR A DATA TRANSFER START A SEARCH COMMAND 
:SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
:DISREGARD THE WINDOW 


SEEKFG: .WORD -=1 


TIMEOUT TABLE (TIMER=8 WORDS 
THIS TABLE CONTAINS: THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD -=1 sDRIVE 0 
-WORD -1 sDRIVE 1 
WORD -1 sDRIVE 2 
WORD -1 sDRIVE 3 
WORD -1 :DRIVE 4 
-WORD 1 :DRIVE 5 
-WORD =! :DRIVE 6 


SEQ 0097 


CZRMLAO RMO5/3/2 FORMATTER 
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030016 


030020 


030032 


030034 


030036 


030042 


030044 


030046 


030050 


a i ee ei i eee ee ee ee eee 


DOO OOOO WWW WW DW O00 0 0 I NI NN NI IN NN INO A OP AAAOAOOAINMNDDMNUNIDNAVIVINF SRE LLL LS 
b> peed 4+ pad trp ates epeot > WEWNM =O OONO UE WR O OONOAUSWN HOODOO USWWH— 


177777 


177777 


000003 


176700 


000254 


000004 


001000 


000200 


000005 


000000 


000024 


000240 
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«WORD <1 sDRIVE 7 


:DATA TRANSFER UNDERWAY yg edhe (DTUw=1 a 
:DTUW<O IF NO DATA TRANSFER UNDE..: 
sDTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


DTUW: .WORD =1 
-solewagaaes * tee TABLE (ATABIT=8 BYTES 


TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
:ATTENTION BIT 


ATABIT: .BYTE 1 sORIVE 0 
BYTE 2 ;DRIVE 1 
-~BYTE 4 ;ORIVE 2 
-BYTE 10 :DRIVE 3 
-BYTE 20 sDRIVE 4 
BYTE 40 sORIVE 5 
-BYTE 100 sDRIVE 6 
-BYTE 200 sORIVE 7 


:FSRM TO RH11/RH70 ‘'MASSBUS CONTROL BUS PARITY ERRORS'’ (MCPE) ALLOWED BEFORE 
CALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 


; STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
sRMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+#2 (THE BR LEVEL (5)). 


RMADR: .WORD 176700 
RMVEC: .WORD 254,532. 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
MXLACT: .WORD 4 . 


MAXIMUM DELTA go Oe 1S 8 SECTORS (MXDLTA=1 WORD) 


MXDLTA: .WORD 
;MINIMUM oth DELAY IS 2 SECTORS (MNDLTA=1 WORD) 
MNDLTA: .WORD 264. 


;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
MXWNDW: .WORD 5 


sDEFINITIONS OF THE RH/RM ADDRESS INDEXES 


RMCS1=0 :CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
RMWC=2 ;WORD COUNT REGISTER (NOT f. DRIVE REG) 

RMBA=4 :;UNIBUS ADDRESS REGI (NOT A DRIVE REG) 

RMDA=6 ;DESIRED SECTOR/TRACK ADDRESS ete Sate ap att" 05) 
RMCS2=10 :CONTROL_ AND STATUS REGISTER #2 (NO RIVE R 
RMDS=12 DRIVE STATUS REGISTER (DRIVE REG it 

RMER1=14 ERROR REGISTER #1 (DRIVE REG. 02) 

RMAS=16 : ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
RMLA=20 [LOOK AHEAD REGISTER (DRIVE REG. 07) 

RMDB=22 ;DATA BUFFER REGISTER (NOT A DRIVE REG.) 

RMMR1=24 :MAINTAINABILITY REGISTER (DRIVE REG. 03) 


SEQ 0098 


CZRMLAO RMO5S/3/2 FORMATTER 


197 000026 

198 000030 

199 000032 

200 000034 

201 000036 

202 000040 

203 000042 

204 060044 

205 000046 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 030052 104412 

222 030054 013746 17777 

223 030060 012737 000240 

224 030066 004737 03574 

225 030072 012701 02766 

226 030076 012702 027776 

227 030102 005021 

228 030104 020102 

229 030106 103775 

230 030110 012702 030020 

231 030114 012721 177777 

232 030120 020102 

233 030122 101774 

234 030124 005037 027706 

235 030130 005037 027710 

236 030134 005037 027712 

237 030140 005037 027714 

238 030144 013703 030036 

239 030150 012723 032706 

240 030154 0135713 030040 

241 030160 013704 030034 

242 0301 012764 000040 

243 030172 005001 

244 030174 004037 030264 
030. 0401 


000402 
030204 105061 027706 
005201 
177770 
000007 


0 

10 1 

2 030224 005037 177776 
30 1 027726 
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177776 


000010 


RMDT=26 sDRIVE TYPE REGISTER (DRIVE REG. 06) 

RMSN=30 ;SERIAL NUMBER REGISTER (DRIVE REG. 10) 

RMOF =32 sOFFSET REGISTER (DRIVE REG. 11) 

RMDC=34 DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
RMHR=36 s;DUMMY ADDRESS REGISTER (DRIVE REG. 13) 

RMMR2=40 sMAINTENANCE REGISTER #2 

RMER2=42 sERROR REGISTER #2 (DRIVE REG. 15) 

RMEC1=44 sECC POSITION REGISTER (DRIVE REG. 16) 

RMEC2=46 sECC PATTERN REGISTER (DRIVE REG. 17) 


-SBTTL RH/RM DRIVER INITIALIZATION CODE 


THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
sAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
;TO THE PROPER STATE FOR EACH DRIVE. 

NOTE: THIS ROUTINE CALLS DRVINT 


CALL 
: JSR PC .RMINIT 
. RETURN 


sNOTE: THE *P* OR 'L* CLOCK MUST BE STARTED 


RMINIT: SAVREG 
MOV 


2$: MOV 


6$: TSTB 


PS,-(SP) 
#<5432.>,PS 
PC, CLRQUE 
#RMERRS,R1 
MSEEKFG,R2 
(R1)4 

RI R2 

1$ 


#DTUW,R2 
#-1,(R1)¢ 
1,R2 
2$ 
DRVSTA 
DRVSTA+2 
DRVSTA+4 
DRVSTA+6 
RMVEC,R3 
#ISR,(R3)+ 
RMVEC+2,(R3) 
RMADR ,R4 
#CLR,RMCS2(R4) 


RO,DRVINT 
4$ 


5$ 
DRVSTA(R1) 
R1 

#*C7,R1 

3$ 

#7,R1 

PS 
DPINT(R1) 


SAVE RO = R5 

SAVE THE PRESENT PROCESSOR STATUS 
CHANGE THE PRIORITY TO 5 

CLEAR ALL REQUEST QUEUES 

sFIRST ADDRESS TO BE CLEARED 

LAST ADDRESS TO BE CLEARED 


; CLEAR 

;ARE WE DONE? 
3;BR IF NO 
sLAST ADDRESS 
s INITIALIZE 

; DONE? 


:LOOP IF NO 
:SET ALL DRIVES TO OFFLINE 


;SETUP THE RH/RM VECTOR 


sFIRST ADDRESS OF RH/RM 
:MASSBUS INIT 

START WITH DRIVE 0 

INIT THE DRIVE 

:"DVA* NOT SET OR PARITY ERROR 
NORMAL RETURN 

;SET DRIVE STATUS TO OFFLINE 
GO TO NEXT DRIVE 

:MASK OUT UNUSED BITS 

:BR IF MORE DRIVES TO GO 
START WITH DRIVE 7 

;CLEAR THE PROCESSOR STATUS 
sWAITING FOR DRIVE TO SWITCH PORTS ? 


SEQ 0099 


J 8 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0100 
254 030234 001405 BEQ 8$ :BR NOT WAITING 
255 030236 004737 035374 JSR PC,SET.IE ‘SET INTERRUPT 
256 030242 105761 027726 7$: TSTB DPINT(R1) ‘DRIVE SUITEHED PORTS ? 
257 030246 001375 BNE 7$ ‘BR IF NOT 
258 030250 005301 8$: DEC RI *60 TO THE NEXT DRIVE 
259 030252 100366 BPL 6$ SCHECK NEXT DRIVE ' 
260 030254 012637 177776 MOV (SP)+,PS ;RESTORE THE PROCESSOR STATUS 
261 030260 104413 RESREG “RESTORE RO - R5 
262 030262 000207 RTS PC ‘BYE-BYE 
264 sDRIVE INITILIZATION ROUTINE 
265 ;THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
266 3 AN yet S IF IT IS, A ‘'READ-IN PRESET'’ IS ISSUED AND FMT16 
267 1S SET TO A ‘'l''. THEN nOL., DPR, DRY, AND VV ARE CHECKED TO 
268 s INSURE THEY ARE ALL ON A she ha AND DEPENDING ON THEIR STATE, 
$68 :DRVSTA 1S SET TO THE PROPER CONDITION. 
7 CALL 
271 3 MOV #DRVNUM,R1 s;DRIVE NUMBER TO R1 
272 ; MOV RMADR RG ‘UNIBUS ee OF RH/RM (RMCS1) 
273 : JSR RO,DRVINT ;CALLED BY JSR 
274 3 RETURN1 *ERROR oc cunReb (PARITY) 
275 : RETURN2 s;NORMAL RETURN 
378 ; 
278 030264 010546 DRVINT: MOV R5,-(SP) SAVE RS 
279 030266 105061 027706 DULP: CLRB DRVSTA(R1) sSTART DRIVE STATUS AS OFFLINE 
280 030272 105061 027716 CLRB DRVTYP(R1) ;CLEAR THE DRIVE TYPE INDICATOR 
281 030276 105061 027754 CLRB ULDFLG(R1) ;CLEAR THE UNLOAD FLAG 
282 030302 010164 000010 MOV R1,RMCS2(R4) ;SELECT A DRIVE 
283 030306 1127 000111 000000 MOVB #1il »RMCS1(R4) ;DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
284 030314 032764 010000 000010 BIT #B1T12,RMCS2(R4) sNONEXISTENT DRIVE? 
285 030322 001403 BEQ 1$ NO 
286 030324 004737 035374 JSR PC,SET.IE 3G0 SET ‘IE’ WITHOUT A ‘“‘TRE' 
287 030330 000520 BR 6$ SLEAVE THIS ROUTINE 
289 030332 105061 027706 1$: CLRB DRVSTA(R1) ;SET DRIVE STATUS TO OFFLINE 
290 030336 032764 004000 000000 BIT ot tae RMCS1(R4) SEE IF DRIVE AVAILABLE 
291 030344 001750 BEQ s8R IF DRIVE NOT AVAILABLE 
292 030346 004037 034704 JSR pit ie. RM sREAD THE DRIVE TYPE REG. 
293 030352 000026 RMDT 
294 030354 030616 8$ ;ERROR RETURN ADDRESS 
295 030356 012605 MOV (SP)+,R5 :PUT DRIVE TYPE IN RS 
296 030360 112761 000004 027716 MOVB #4 ,.DRVTYP(R1) >SET RMOS INDICATOR 
297 030366 022705 020024 CMP #260024 ,R5 “SINGLE PORT RMO3 ? 
298 030372 001431 BEQ 2$ ‘BR IF YES 
299 030374 022705 024024 CMP #24024,R5 ‘DUAL PORT RMO3 ? 
300 030400 001426 BEQ ‘BR IF YES 
301 030402 112761 000005 027716 MOVB #5,DRVTYP(R1)  :SET RMO2 INDICATOR 
302 030410 022705 020025 CMP #20025,R5 :SINGLE PORT RMOZ ? 
303 030414 001420 BEQ 2$ F SO 
304 030616 022705 024025 CMP #24025,R5 :DUAL PORT RMO2 ? 
305 030422 001415 BEQ 2$ R 
306 030424 112761 000007 027716 MOVB so? DaYTYB CRI) SET RMOS INDICATOR 
307 030432 022705 020027 CMP #2602 [SINGLE PORT RMOS ? 
308 030436 001407 BEQ 2$ ‘BR IF YES 
309 030440 022705 024027 CMP #24027,R5 :DUAL PORT RMOS ? 
310 030444 001404 BEQ 2$ ‘BR IF YES 
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177777 


030022 
034704 


177777 


167077 
000001 


060000 
177777 


177776 
030040 
000001 


000016 


030034 
027706 
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02771 


00001 


02770 


02770 


6 


6 


6 


6 


030000 
027726 


2$: 


4$: 


6$: 
7$: 


8$: 


MOVB 
BR 


#-1 ,DRVTYP(R1) 
6$ 


#121, “ye 4 
RO,WRT.R 


#B1T12,-(SP) 
RM 


RO,WRT 

RO,RD.RM 

(SP)+,R5 
4$ 


(SP)+ 
$ 


4 
#-1,DRVSTA(R1) 
6$ 


R5 

#°C<BIT121B1T0B 181107 !B1T06>,R 
#1, DRVSTAC(R1) 
(RO)+ 


+ 


#0000, ,TIMER(R1) 
#-1 ,DPINT(R1) 


(SP)+,R5 
RO 


;BR IF 
ATABIT(R1), mma (fe 
0,RD.RM 


SET INDICATOR TO ‘OTHER’ 
;EXIT 


;D0 A "'READ-IN PRESET"’ 
SET FMT16=1 


READ RMDS 


sAND SAVE IT IN R5 
ATA=0 

;CLEAR ATTENTION BIT 
FIND OUT WHY ATA=1 


‘aR ; li 
:SET_ UNSAFE INDICATOR 
;EXIT 


CHECK MOL, Ay s DRY, AND WV 

BR_IF MOL, DPR, DRY, OR VV IS CLEAR 
:SET DRIVE STATUS TO ONLINE 

i STEP OVER THE ERROR RETURN 


sEXIT 
; CHANGE rr TO ADDRESS WORDS 
al T 2 SEC TIMER 


SET PORT INITIALIZE INIDICATOR 
;RESTORE R5 


REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 


CALL 


RMO5: 


JSR 
PNTAD 
RETURN] 
RETURN2 


RO,RMOS 


PS ,~(SP) 
RMVEC#+2,PS 
#1 ,ACTORV 


RMADR ,R4 
DRVSTA(R1) 


*CALL THE RMOS DRIVER 


ADDRESS OF POINTER OF gith PARAMETER BLOCK 
;RETURN HERE IF QUEUE 1S FU 
RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
71S AN ERROR CONDITION 


_, THE CALLING STATUS 


DON'T ALLOW ANY RM INTERRUPTS 
ae “ACTIVE DRIVER'’ FLAG 


E 
:PICKUP THE DRIVE PARAMETER BLOCK POINTER 
sCLEAR THE STATUS/ERROR INDICATOR 
:PICKUP THE DRIVE NUMBER 
;UNIBUS ADDRESS OF RMCS1 


:CHECK DRIVES STATUS 


SEQ 0101 


| i oie L 
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| RH/RM DRIVER INITIALIZATION CODE SEQ 0102 
368 030664 003014 BGT 1$ ;BR IF ONLINE 
369 030666 105761 027754 1STB ULDFLG(R1) + UNLOAD COMMAND IN QUEUE? 
370 030672 001036 BNE $ FY 
371 030674 105761 027726 TSTB DPINT(R1) i TRYING TO INIT THE DRIVE 
372 030700 001042 BNE ‘BR YES 
373 030702 004037 030264 JSR RO,DRVINT :60 INIT. om DRIVE 
374 030706 000434 BR 4$ ERROR RETUR 
375 030710 105761 027706 TSTB DRVSTACR1) :1S DRIVE STATUS ONLINE? 
376 030714 003445 BLE 6$ F NOT 
377 030716 105761 027736 1$: TSTB DPRQS(R1) ZOUT STANDING PORT REQUEST FOR THE DRIVE ? 
378 030722 00103 BNE 5$ :BR YES 
379 030724 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 
380 030730 004037 036036 JSR RO, DRVQUE :PUT THIS A ga IN GUEUE 
*381 030734 000460 BR QUEUE IS F 
382 030736 122762 000103 000002 CMPB #103,2(R2) 71S THIS REQ. FOR AN UNLOAD? 
383 030744 001003 BNE 2$ :BR IF NO, 
384 030746 112761 177777 027754 MOVB #-1,ULDFLG(R1) ;SET THE ‘'UNLOAD IN QUEUE"’ FLAG 
385 630754 105761 027676 2$: TSTB DRVACT(R1) 71S THIS DRIVE ACTIVE? 
386 030760 001043 BNE 8$ BR IF YES 
387 030762 004737 031114 JSR PC,OPT CALL THE OPTIMIZER 
0307 000440 BR 
389 030770 012762 120000 000016 38: MOV #BIT15!B1113,16(R2) 3SET THE "'UNLOAD IN QUEUE" ERROR FLAG 
390 030776 000434 BR $ sEXIT 
031000 004737 032174 4$: JSR PC,C17 ;G0 HANDLE THE PARITY ERROR 
392 031004 000431 BR 8$ 
393 031006 004037 036036 5$: JSR RO,DRVQUE :PUT Ste fae - QUEUE 
394 031012 000431 BR 9$ QUEUE IS 
395 031014 032714 000100 BIT #B1T06,(R4) ile BIT 
396 031020 001023 BNE $ YES 
397 031022 004737 035374 JSR PC,SET.IE iSET Ling INTERRUPT 
398 031026 000420 BR 8$ RETUR 
399 031030 105761 027706 6$: TSTB DRVSTACR1) SEE IF ag be OFFLINE OR UNSAFE 
0310 002412 BLT 7$ R IF UNSAFE 
401 031036 012762 140000 000016 MOV MBITIS'BIT14, 16483) SET OFFLINE ERROR INDICATOR 
402 031044 105761 027716 TSTB DRVTYP(R1) ++i IF OFFLINE OR NONEXISTENT 
403 031050 001007 BNE 8$ IF OFFLINE 
404 031052 012762 100002 000016 MOV MBITIS!B1T01, rocks) REPORT DRIVE NONEXISTENT 
405 031060 000403 BR $ XI 
406 031062 012762 110000 000016 /7$: MOV MBITIS!BIT12, 16¢h2) DRIVE IS UNSAFE 
407 031070 104413 8$: RESREG RESTORE RO - R5 
408 031072 005720 TST (RO) + :SETUP FOR NORMAL en 
409 031074 000401 BR 10$ :FINISH UP bg EXIT 
410 031076 104413 9$: RESREG RESTORE RO - R5 
41% 031100 005720 10$: TST (RO)+ CORRECT THE RETURN ADDRESS 
412 031102 105037 027752 CLRB ACTORV CLEAR "ACTIVE DRIVER" FLAG 
413 031106 012637 177776 MOV (SP)+,PS ;RETURN ‘'PS'' TO USER LEVEL 
‘is 031112 000200 RTS RO ;RETURN TO CALLER 
ry s;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 
418 7 CALL 
419 ; MOV #DRVNUM,R1 DRIVE NUMBER TO R1 
$39 ; JSR PC,OPT ;SETUP A COMMAND 
& : 
422 031114 104412 OPT: SAVREG RO - R5 
423 031116 013746 177776 MOV PS,=(SP) ay ve PROC. STATUS 
424 031122 146137 030022 027750 BICB ATABIT(R1), SRCHWT CLEAR LA SEACH FLAG 


| 
i 
' 
| 


m 8 
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' RH/RM DRIVER INITIALIZATION CODE SEQ 0103 
425 931130 105061 027736 CLRB DPRQS(R1) :RESET THE PORT REQ FLAG *e#*e@ 
426 031134 004737 036112 JSR PC,GETREQ :GET ‘DPB’ POINTER OF REQUEST 
427 031140 005702 TST R2 :1S THERE of REQUEST IN QUEUE? 
428 031142 001472 BEQ 7$ :NO--BR TO EXIT 
429 031144 010164 000010 MOV R1,RMCS2(R4) :LOAD 5 DRIVE ADDRESS eteeene 
430 031150 012764 000111 000000 MOV #111,RMCS1(R4) CLEAR THE DRIVE 
431 031156 032764 004000 000000 BIT WBITIT,RMCSI(RG) sDVA SET ? 
432 031164 001446 BEQ 5$ :TO PROT REQUEST ,IF NOT 
433 031166 105761 027706 10$:. TSTB DRVSTA(R1) 1S DRIVE ONLINE? 
434 031172 003014 BGT 1$ 
435 031174 004737 036134 JSR PC, POPQUE “NO--REMOVE REQUEST! FROM QUEUE 
436 031200 012762 140000 000016 MOV aBitts BIT14, 16(R2) 3; SET OFFLINE STATUS/ERROR INDICATOR 
437 031206 105761 027706 TSTB DRVS +t DRIVE UNSAFE ? 
438 031212 100053 BPL 8$ TO EXIT IF NOT 
439 031214 012762 110000 000016 MOV pBIT1S!B1IT12, 16¢R59 sSET UNSAFE STATUS/ERROR INDICATOR 
440 031222 000447 BR 8$ :BR TO EXIT 
441 031224 1$: 
442 5 MOV #111,-(SP) ;LOAD COMMAND ONTO THE STACK 
443 ; JSR RO, WRT. RM ;LOAD THE REGISTER 
444 ; RMCS1 ;REGISTER INCREMENT 
445 ; 6$ - ;ERROR RETURN ADDRESS 
446 3 BIT #B1T11,(R4) ‘DRIVE AVAILABLE ? 
447 ; BEQ 9$ ‘BR F NOT 
448 031224 122762 000150 000002 CMPB ss #150, 2(R2) :1$ THE REQUEST FOR 1/0? 
449 031232 002403 BLT 2$ YES 
450 031234 004737 031560 JSR PC,C14 CALL THE COMMAND INITIATOR 
451 031240 000440 BR 8$ ‘BR TO EXIT 
452 031242 005737 030020 2$: TST DTUW “DATA TRANSFER UNDERWAY? 
453 031246 002012 BGE 4$ SYES=-GO START A SEARCH 
454 031250 005737 027776 TST SEEKFG :D0 IMPLIED SEEKS? 
455 031254 100404 BM] 3$ “YES 
456 031256 004037 032532 JSR RO,LA *NO--DO LOOK AHEAD 
457 031262 000427 BR 8$ ;RETURN ay ON A PARITY ERROR 
458 031264 000403 BR 4$ 60 START A SEARCH 
459 031266 006737 031352 3$: JSR PC,C11 sSTART A DATA TRANSFER 
460 031272 000423 BR $ 
461 031274 004737 031460 4$: JSR PC,C13 :START A SEARCH 
462 031300 000420 BR 8$ *60 TO THE EXIT 
463 031302 112761 177777 027736 S$: MOVB #-1,DPRQS(R1) ;SET PORT REQUEST INDICATOR 
464 031310 010103 MOV R1,R3 ;SET UP TO ADDRESS WORDS 
465 031312 006303 ASL R3 * CONVERT TO WORD INDEX 
466 031314 012763 060000 030000 MOV #60000, TIMER(R3) :START 10 SEC TIMER 
467 031322 000402 BR 7$ SEXIT 
468 031324 004737 032174 6$: JSR PC,C17 *PROCESS THE PARITY ERROR 
469 031330 032714 000100 7$: BIT #B1T06, (R4) +SEE IF ‘IE* ALREADY SET 
470 031334 001002 BNE 8$ RIF SET Z 
471 031336 004737 035374 JSR PC,SET.IE {SET IE'' WITHOUT A “"TRE 
472 031342 012637 177776 8$: MOV (SP)+,PS _ *RESTORE PROC. STATUS ‘ 
473 031346 104413 RESREG “RESTORE RO - RS 
474 031350 000207 RTS PC 
476 ;COMMAND INITIATOR 
477 : 
478 37 CALL 
479 2 MOV #ORVNUM,R1 sDRIVE a 
480 * MOV #DPB,R2 sADDRESS OF DPB 
481 : JSR PC,CI? 7C1?= C11,C13, OR C14 


Ss SS A a 
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7? 
503 031432 
504 434 


Pa 
~o 
Ww 
SOoCooooooooooooo 
WWW 
fSofrnvenrw 


WWW NWINNN NAW WWww 
Oe et ae a ee ed ed ed ed 


OfNOSwo 


WN = GOON NEWN—CODNOUE WN —OS@N 
Wn 


WAI ARI RENO PIPONINY NINDS SO OO SS OOO 
SoooooooooooeocoooocK“neo 


WAI AIA AIA AI 
NSNOQOUUIS ELE 
Srenoroooe FROFNSR OWS 


DYDD LV IVIUSLUSV SUSU SUSU SVS SUSUSUSVST SUSTAINS SSIS SIS 
FARA MMAMAMNMMNAMAMAMM Mann 


oo 


AHO 
MNRMOOFOOWw 


116203 


010346 


036134 
027746 
030034 


000002 


035064 


035064 


000002 
035064 


030020 


035064 


000010 


000131 


000010 
035064 
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000001 


027750 


C13: 


C14: 


E: 
DATA TRANSFER 
SEARCH REQUESTED BY DATA XFER 


7 WH 
if 
[CIG=NOT DATA TRANSFER 


PC, POPQUE :REMOVE REQUEST FROM "DRIVES WAIT’ QUEUE 
R2.TRNSWT ‘PUT REQ. IN TRANSFER WAIT QUEUE 
R2,R3 [DPB ADDRESS TO R3 
RMADR, 24 [RMCS1 ADDRES 
RI,RMCS2(R4) SELECT DRIVE 
#4,R3 [DESIRED WORD COUNT 
i sRMWC ADDRESS 
(R3)+,(R4)4 [LOAD WORD COUNT 
(R3)+,(R4)4 «LOAD BUFFER ADDRESS 
(R3)+,=(SP) ‘LOAD SECTOR AND TRACK 
RO,WRT.RM [CALL THE LOAD(WRITE) ROUTINE 
SINDEX OF REGISTER TO LOAD 
TERROR RETURN ADDRESS 
(R3)+,-(SP) ‘LOAD CYLINDER ADDRESS 
RO,WRT.RM 
2(R2),=(SP) [LOAD ‘‘COMMAND+GO"', "'A178A16"", AND "'PSEL"' 
RO,WRT.RM 
RI ,DTUY :SET "DATA TRANSFER UNDERWAY" 
RMADR,R4G :RMCS1 ADDRESS 
R1,RMCS2(R4) SELECT DRIVE 
12(R2),-(SP)  :DESIRED CYLINDER ADDRESS 
RO,WRT_RM 
10(R2),R3 :PICKUP SECTOR ADDRESS 
MXWNDW RS [BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
#32. ,R3 
R3,-(SP) ;COMBINE THE ADJUSTED SECTOR WITH 
#177740, (SP) :CHOP OF ALL EXENTED BITS ,IF ANY 
11(R2),1(SP) 3 THE DESIRED TRACK 
RO WRT .RM [LOAD DESIRED TRACK & SECTOR 
#131,-(SP) ;START A SEARCH 
RO-WRT.RM 
ATABIT (RI) ,SRCHUT :SET "SEARCH WAIT’ KEY 
RMADR,R4 :RMCS1 ADDRESS 
R1,RMCS2(R4) SELECT DRIVE 
2(R2),R3 ‘PICKUP THE REQUESTED COMMAND 
#131,R3 ‘1S IT A SEARCH COMMAND? 
1$ [BR IF NO 
10(R2),-(SP)  ;LOAD DESIRED TRACK & SECTOR 
RO, WRT RM 


SEQ 0104 


CZRMLAO RMOS/3/ 

RH/RM DRIVER IN 
539 051612 
40 031614 
541 031616 
34¢ 051620 
543 031626 
544 051696 
545 0316 
546 031636 
547 031640 
548 031642 
549 031644 
550 031650 
$51 031652 
552 031656 
553 031660 
554 031662 
555 031666 
556 031672 
557 031674 
558 031676 
559 031700 
560 031704 
561 031706 
562 031712 
563 031714 
564 031720 
565 031722 
566 031730 
567 031734 
568 031742 
569 031744 
570 031750 
571 031752 
572 031754 
573 031756 
574 031762 
575 031764 
576 031770 
577 031772 
578 031774 
579 032002 
$80 032006 
581 032010 
582 032012 
$83 032014 
584 032020 
585 032022 
586 
$87 032026 
588 032034 
589 032040 
590 032044 
591 032046 
$92 032050 
593 032052 
59% 032056 
595 032060 
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ORMATTER 
ALIZATION CODE 


000105 


000012 
035064 


000115 
034704 


000001 
035064 


000107 
000117 
000103 
000001 
027706 
000001 


035064 


000143 
034704 


000001 
035064 


000141 
000006 
000010 


000011 
034704 


032044 
000002 
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027676 
027754 


000001 


032044 


032044 


3$: 


4$: 


5$: 


6$: 
7$: 


8$: 
9$: 


RMDA 


2$ 
#105,R3 
$ 


12(R2) ,=(SP) 
RT.RM 


RO,WRT 
C16 
#115,R3 
4$ 
RO,RD.RM 


1(R2), (SP) 
RO,WRT RM 


#1, DRVACT(R1) 


DRVSTA(R1) 


#1, ULDFLG(R1) 
R3,-(SP) 


RO.WRT.RM 


PC 
#143,R3 
RO,RD.RM 


1(R2),1¢SP) 
RO,WRT.RM 


(SP)+,(R3)+ 
9$,R5 


12 
#2,9% 


AD CYLINDER 


D 
- SEEK COMMAND 
E 


0 
T 
F_NO 

SIRED CYLINDER 


:G0 L 
718 1 
sBR 1 
;LOAD D 


z1S IT AN ‘‘OFFSET'’ COMMAND? 
;BR IF 


: NO 
MERGE THE OFFSET VALUE INTO RMOF 
;BUT DON'T CHANGE THE UPPER 


s:BYTE WHEN LOADING THE 
sREGISTER (RMOF) 


ART THE COMMAND 
A ‘'RECALIBRATE’’ COMMAND? 


ST 

IT 

IF YES 

| A RETURN TO CENTER? 
IT AN "‘UNLOAD’’ COMMAND? 
IF NO 


Bee Se Be eee 
ODnwmno 


OW—-O-Oe-m 


LINE 
;SET “'UNLOAD IN PROGRESS" FLAG 
;START THE ‘UNLOAD’ COMMAND 


RETURN TO USER 
1S IT A “SET FORMAT’ COMMAND? 


;BR IF NO 
;READ THE OFFSET REGISTER 


;COMBINE ‘'FMT16°',""ECI"', AND “‘HCI"' 


SLOAD ''FMT16"', “ECI'', AND/OR ‘'HCI"’. 


71S 
7BR 
3P0 


IT A "GET REGISTER"’ COMMAND? 
i 


INTS TO 1ST ADDRESS OF WHERE 
:TO PUT THE REGISTER(S) 


INIT. THE INDEX FOR THE FIRST REG. 
; MOVE 


: INDEX OF LAST REG. TO 


;GET THE CONTENTS OF RH/RM REG. 
sLAST REG. BEEN READ? 

:GET OUT IF YES 

: INCREASE THE INDEX BY 2 


SEQ 0105 
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11 


BR 8$ ;LOOP=--MORE TO READ 
10$: CMPB #145,R3 318 IT ~ "SELECT DRIVE'' COMMAND? 
BEQ 12$ ‘BR é 
118: MOV R3,-(SP) LOAD THE COMMAND 
JSR RO,WRT.RM 
hae 
12$: JSR PC ,POPQUE sREMOVE REQ. ene QUEUE 
000016 BIS #B1T07,16(R2) ;SET THE ‘DON T 
TST SAVEFG : SAVE RHR REGISTERS? 
BPL 13$ ‘BR IF 
JSR PC,SVRH70 VES“<GO. SAVE THE REGISTERS 
13$: RTS PC S RETURN TO USER 
C15: ASL R1 
030000 = * ahaa in 7SET A ONE SECOND TIMER 
027676 MOVB #1, DRVACT(R1) 3SET THE DRIVE ACTIVE 
RTS PC ;RETURN TO THE USER 
C16: MOV R3,-(SP) ;LOAD THE COMMAND 
JSR RO,WRT.RM 
RMCS1 
C17 
BR C15 
000010 ClI?: BIT #B1T12,RMCS2(R4> ;DRIVE NON-EXISTENT ? 
: BNE C18 3;BR IF YES 
1$ TST R2 ae IN QUEUE ? 
3 BEQ C178 7BR IF NOT 
BNE 2$ 7BR IF QUEUE IS THERE 
RTS PC SOTHERWISE EXIT 
000016 2$: MOV #B1T15!B1T11,16(R2) SET ‘'PARITY'' ro INDICATOR 
: JSR PC,SVRH70 :GO SAVE THE ~~ REGISTERS 
C17B: MOV wil, “ye % 3D0 A ‘DRIVE CLEAR 
SR RO, WRT.LR 
RMCS1 
C18 
2$ JSR PC,EMPTYQ sEMPTY THE QUEUE 
CLRB DPRQS(R1) ;CLEAR THE PORT REQUEST FLAG 
CLRB ULDFLG(R1) ;CLEAR THE UNLOAD IN QUEUE FLAG 
CLRB DRVACT(R1) :DRIVE IS IDL 
CMP R2, TRNSWT s1F THIS DRIVE HAD AN 1/0 REQUEST 
; CMP R1,0TUW :1F THIS DRIVE HAD AN I/O REQUEST 
BNE 1$ [IN PROGRESS CLEAR ALL OF THE FLAGS 
CLR TRNSWT 
030020 MOV #-1,0TUW 
1$: TS C 
C18: SAVREG sSAVE RO - RS 
000010 BIT #BIT12,RMCS2(R4)- 31S "NED* SET ? 
; BNE 1$ 7BR YES 
CLR R1 
CLR R3 
1$ TSTB DRVACT(RID sDRIVE ACTIVE? 
3 BEQ 5$ 7BR IF NO 
BNE 228 :BR IF IN ACTIVE 
TSTB DPRQS(R1) oe ney EST 
BEQ 5$ R IF 
228: MOV TRNSWT ,R2 :GET THE OT TRANSFER WAIT'’ QUEUE 
CMP R1,DTUW DID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 


SEQ 0106 


oo 
uw 


SOAS 
Manis 
WN —OODOnNOULw 


geggesess 


S258 
moo 


MATTER 
LIZATION CODE 


ead 
——" 


T 


BoS-SNoo- RONoKoare 


013704 


003033 


036112 


010000 
100002 
102000 
177777 


030020 
177777 


010000 
000002 
177770 
177777 


000040 
036016 


035374 


030034 
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BEQ 2$ :BR IF YES 
JSR PC,GETREQ [GET THE DPB POINTER 
2$: TST R2 [QUEUE ENTRY FOR DRIVE ? 
BEQ 4$ ‘BR IF NOT 
000010 BIT #B1T12, RACSZ(RG) s"NED’ SET ? 
000016 MOV #B1T15:B1T01, 16ck2) 
000016 38: MOV #B1T15'BI1T10, roche)” SET 
; JSR PC, SVRH70 AVE RHZR REGISTERS 
030000 4s: MOV Ad be TIMER(R3) :STOP THE TIM 


ER 
SET “DRIVE ACTIVE" oe IDLE 
;CLEAR PORT REQUEST F 


CLRB DRVACT(R1) 
CLRB DPROS(RI) 
CMP now 


BNE :BR IF NOT 
030020 MOV #-1 ,0TUW sRESET THE INDICATOR 
CLR ayy oy fl :CLEAR THE TRANSFER QUEUE 
5$: CLRB ULDFLG ; CLEAR UNLOAD FLAG 


R1) 
000010 BIT #elTi2, SRMCS2(R4) ‘BR IF ;"NED* SET ? 


: BNE 6$ R YES 
INC R1 ;MOVE TO THE NEXT DRIVE 
ADD #2, 
BIC #*C7,R1 
BNE 1$ :;BR IF MORE DRIVES . 
030020 MOV #-1,0TUW NO DATA TRANSFERS UNDERWAY 


JSR PC,CLRQUE 


-CLR 
000010 MOV WCLR,RMCS2(R4) :DO A MASSBUS INIT. 
BR 7$ : CONTINUE 
6$: JSR PC ,EMPTYQ :CLEAR THE DRIVE'S QUEUE 


CLRB DRVSTA(R1) 
CLRB DRVTYP(R1) 


:SET DRIVE TO OFFLINE 


7$: JSR PC,SET.IE SET IE’ WITHOUT 
RESREG : RESTORE RO = R5 
RTS PC : RETURN 

:LOOK AHEAD ROUTINE 

CALL 


MOV #ORVNUM,R1 :DRIVE oe 


: MOV #DPB,R2 :POINT TO DPB 
: JSR RO,LA [G0 CHECK THE WINDOW 
: RETURN1 “ERROR RETURN 
: RETURN2 ‘START A SEARCH 
: RETURN3 “START A DATA TRANSFER 
LA MOV RMADR, RG :GET RMCS1'S ADDRESS 
MOV R1,RMCS2(R4) SELECT DRIVE 
JSR RO.RD.RM :READ DRIVE STATUS 
4$ ;ERROR RETURN ADDRESS 


BIC #*C020200,(SP) ;ON CYLINDER 
CMP gl a ;PIP= 0,DRY= 1? 


INCB LACNT(R1) 
030042 CMPB LACNT(R1) ,MXLACT s;EXCEED 
BGT 2% :BR IF YES 


;SET "DRIVE NON-EXISTENT’ INDICATOR 
"'NON-CLEARABLE PARITY’ ERROR INDICATOR 


LAG 
1° Hg DRIVE SETUP FOR A TRANSFER 


;CLEAR THE ‘TRANSFER WAIT QUEUE 
:CLEAR ALL OF THE REQUEST QUEUES 


:CLEAR THE DRIVE ee 


NO 
INCREMENT THE o tans AHEAD COUNT 


SEQ 0107 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0108 
710 032600 116203 000010 MOVB 10(R2),R3 :GET as yi SECTOR ee AND 
711 032604 900303 SWAB R33 MULT. BY 64=-ALIGN WITH 
712 032606 006203 ASR R3 LOOK AHEAD REGISTER 
713 032610 006203 ASR R3 
714 032612 012737 000340 177776 MOV #340,PS sPRIORITY LEVEL ‘7°’ 

715 032620 004037 034704 6$: JSR RO,RD.RM READ LOOK AHEAD REGISTER 

716 032624 000020 RMLA 

717 032626 032700 4$ 

718 032630 021664 000020 CMP (SP),RMLA(R4)  ;CORRECT LA NUMBER ? 

719 032634 001402 BEQ 7$ : 

720 032636 005726 TST (SP)+ :NO,CLEAR STACK 

721 032640 000415 BR 3$ 

722 032642 162603 7$: SUB (SP)+,R3 CALCULATE THE DELTA 

723 032644 002002 BGE 1$ 

724 032646 062703 004000 ADD #<32.%64.>,R3 = ;MAKE THE DELTA POSITIVE 

725 0326 023703 030044 1$: CMP MXDLTA,R3 :CHECK THE DELTA TO SEE 

726 032656 002406 BLT 3$ :1F IT IS WITHIN THE 

727 032 023703 030046 CMP MNDLTA,R3 sWINDOW---IF YES, ZERO 

728 032 002003 BGE 3$ ;THE LOOK AHEAD COUNT 

729 032666 105061 027764 2$: CLRB LACNT(R1) sAND TAKE THE 1/0 EXIT 

730 032672 005720 TST (RO)+ 

731 032674 005720 3$: TST (RO)+ ADJUST THE RETURN ADDRESS 

732 032676 00040 BR 5$ sEXIT 

733 032700 004737 032174 4$: JSR PC,CI7 ;PROCESS THE ERROR 

ee 032704 000200 5$: RTS RO ;RETURN 

3 ; INTERRUPT SERVICE ROUTINE 

738 032706 °112737 000001 027752 ISR: MOVB #1,ACTORV :SET "‘ACTIVE DRIVER" FLAG 

739 032714 104412 SAVREG :SAVE RO - R5 

740 032716 013704 030034 MOV RMADR ,R4 sADDRESS OF RHSCS1 

741 032722 013701 030020 MOV DTUW,R1 :GET "DATA TRANSFER UNDERWAY’ INDICATOR 
742 032726 002403 BLT 1$ :BR IF NO DATA TRANSFER UNDERWAY 
743 032730 004737 032752 JSR PC,1D CALL TRANSFER DONE 

744 032734 000402 BR 2$ sEXIT ‘ 
745 032736 004737 033122 1$: JSR PC,SC CALL SPECIAL CONDITIONS 

746 032742 104413 2$: RESREG RESTORE RO - R5 

747 032744 105037 027752 CLRB ACTORV :CLEAR “ACTIVE DRIVER"’ FLAG 

by 032750 000002 RT] ; RETURN 

ey ; TRANSFER DONE ROUTINE 

752 032752 105061 027676 TD: CLRB DRVACT(R1) SET DRIVE ACTIVE INDICATOR TO IDLE 
753 032756 012737 177777 030020 MOV #~1 ,DTUW NO DATA TRANSFERS UNDERWAY 

754 032764 006301 ASL R1 

755 032766 012761 177777 030000 MOV #-1,TIMER(R1)  ;CANCEL TIMEOUT 

756 032774 006201 ASR R1 

757 032776 013702 027746 MOV TRNSWT ,R2 :GET ‘‘DPB’' ADDRESS FROM THE 

758 033002 005037 027746 CLR TRNSWT ; TRANSFER WAIT QUEUE--CLEAR QUEUE 
759 033006 052762 000200 000016 BIS WB1T07,16(R2)  3SET DONE 

760 033014 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 

761 033020 004037 034704 JSR RO,RD.RM ; TRANSFER ERROR(TRE=1)? 

762 033024 000000 RMCS1 

763 033026 032174 C17 

764 033030 006126 ROL (SP) + 

765 033032 100417 BM] 3$ :BR IF YES 

766 033034 005737 027774 TST SAVEFG ;SAVE THE RH/RM REGISTERS? 


767 033040 
768 033042 
772 033046 
774 033046 
775 033052 
776 033054 
777 033056 
778 033062 
779 
780 033064 
781 033070 
782 033072 
783 033100 
784 033104 
785 033110 
786 033114 
787 033120 
788 
789 
806 
807 
808 
809 033122 
810 033126 
811 033130 
812 033134 
813 033136 
814 
815 033140 
816 033142 
817 033144 
033150 
818 033152 
819 033156 
820 033160 
821 033162 
822 033164 
823 033170 
824 033172 
825 033174 
826 033176 
827 033200 
828 033202 
829 033204 
830 033206 
831 033210 
832 033214 
833 033216 
834 033222 
835 033226 
836 033230 
837 033234 
838 033240 
839 033242 
840 033246 
841 033250 
842 055254 


032274 
106126 


CZRMLAO RMOS/3/2 FORMATTER 
RH/RM DRIVER INITIALIZATION CODE 


035256 
036112 


031114 


000113 
Aeeave 


000113 


000016 
034704 


036202 
035374 


000001 


027726 


034134 
027736 


034134 
027706 


027754 


036112 
035256 
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000016 


Sc 
vise 16185) 
PC,EMP 


BPL 1$ 

- JSR PC, SVRH70 
JSR PC,GETREQ 
TST R2 
BEQ 2$ 
JSR PC,OPT 

C 

2s: MOV 
BR 

3$: BIS 
JSR 
JSR PC EVRHYO 
MOV #40111, (RS) 
MOV #113, (R4) 
BR SC 


SPECIAL CONDITION ROUTINE 


SC: 


RMAS(R4),R3- 
2$ 


RO,RD.RM 


(SP)+ 

1$ 

oe .£8..9 
PC,SET.IE 
PC 


PC 
DPINT(R1) 
1$ 

$€13 
DPRQS(R1) 
2% 

$¢13 
DRVSTA(R1) 
ULDFLG(R1) 
5$ 


PC ,GETREQ 
PC, SVRH70 


:BR IF NO 
7YES--SAVE THE REGISTERS 
;GET DPB POINTER 


sENTRY FOR DRIVE ? 

BR IF NOT 

;CALL OPTIMIZER 
OTHER DRIV 


BR S ; CHECK ES 
; THE RELEASE wae th ity 1S FORECD TO ENTER Rs Mae PORT OPERATION 


errata SE THE 
HECK FOR OTHER DRIVES 

sSET DATA ERROR FLAG 
;EMPTY THE "DRIVE'S WAIT'’ QUEUE 
:SAVE THE RH/RM aur 
s ISSUE A ‘DRIVE C 
: 1SSUE A RELEASE ait THE DRIVE 
CHECK FOR OTHER DRIVES 


;READ ‘'RMAS' 
:BR IF ANY CATA BITS SET 
;READ CONTROL AND STATUS REGISTER 


sEXIT IF FAIL TO READ 
71S “IE''=1? 


YES, NO DRIVES TO CHECK 

:SAVE THE ADDRESS IN 'SESCAPE" 
REPORT AN ILLEGAL INTERRUPT 
cae tune INTERRUPT ENABLE 


URN 
:PROCESS ss oe DRIVES THAT HAVE 


sATA=1? 

3YES 

:MOVE TO THE NEXT DRIVE 
7BR IF MORE TO CHECK? 


:CLEAN OFF THE STACK 
RETURN TO USER 


INITIALIZING THE DRIVE ? 


:BR IF ¢.' 
:PROCESS THE DRIVE 
:PORT ———o OUTSTANDING ? 


:START THE tee te COMMAND 
CHECK THE DRIVE STATUS 
:BR IF ONLINE 
acne IN PROGRESS? 
R_IF NOT 


:GET DPB POINTER 
SAVE THE RH/RM REGISTERS 


SEQ 0109 


ee 033260 
845 033264 
846 033270 
847 Tht 
848 033300 
849 
850 033302 
851 033306 
o2¢ 033310 
853 033314 
854 033316 
855 
856 033322 
857 033326 
858 033330 
859 033334 
860 033336 
861 033344 
862 
863 033346 
864 033352 
865 033356 
866 033360 
867 033362 
868 033364 
033370 
869 033372 
870 033374 
033374 
033400 
871 033402 
872 033404 
873 033406 
874 033414 
875 033416 
876 033422 
877 033426 
878 033432 
879 033436 
880 033440 
881 033442 
882 033444 
883 033446 
884 033450 
885 033454 
886 033456 
887 033464 
888 033466 
889 033472 
890 033474 
891 033476 
892 033500 
893 033504 
894 033510 
895 033514 
896 033516 


004737 


S= S&ssSs SSss2 


ofnNm — 


033724 


CZRMLAO RMO5/3/2 FORMATTER 
RH/RM DRIVER INITIALIZATION CODE 


034064 
027706 
040000 


027670 
027676 
034064 
027726 
027706 
020000 


000111 
035064 


036202 
036202 


177777 
036112 


034704 


027676 
100210 
034704 


035256 
000111 
035064 
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027666 


027672 


030000 


000016 


Ss. 
5$: 


6$: 


7$: 


8$: 


SEQ 0110 
PC,SC12 : SAVE RMDS, RMER1, RMER2, AND RMMR2 
ALSO DO A DRIVE INIT (DRVINT) 
en :D1D DRIVE COME ONLINE? 
WBITIG,RMERRS  ; WAS — on ERROR? 
3$ :BR IF ERR 
$¢11 :NO ERROR 
RMERRS+2,R5 YES == PICKUP RMER1 AND 
SC6A :G0 PROCESS THE ERROR 
DRVACT(R1) ‘DRIVE er rien WITH COMMAND OR ERROR RECOVERY ? 
PC,SC12 : SAVE ey oe RMER2, AND RMMR2 
sALSO DO_A DRVINT 
DPINT(R1) :TRYING TO INIT THE DRIVE ? 
SC4 BR IF YES, CHECK ON MORE DRIVES 
DRVSTACR1) CHECK ON RIVE" S$ STATUS 
BR IF UNSAFE 
WBITIS,RMERRS+4 ;ADDRESS PLUG CHANGED ? 
8$ :BR IF YES 
#113,-(SP) RELEASE COMMAND 
#111,-(SP) :DRIVE CLEAR 
RO,WRT.RM WRITE THE COMMAND INTO RMCS1 
sREGISTER INDEX 
sPARITY EXIT ADDRESS 
(SP),R5 ;PICKUP (RMAS) BEFORE THE ERROR CALL 
RO,ES.SAV :SAVE THE ADDRESS IN ‘SESCAPE' 
2 : REPORT THE UNEXPECTED ATTENTION 


$¢4 GO CHECK FOR MORE ATA’S 


RO,ES.SAV :SAVE THE ADDRESS IN 'SESCAPE" 
s :REPORT THE ADDRESS PLUG CHANGE 
C4 [CHECK FOR MORE DRIVES 

RI :SETUP TO ADDRESS WORDS 

#-1, TIMER(R1) : STOP THE TIMER 

R1 “RESTORE THE DRIVE ADDRESS 
PC,GETREQ ‘GET THE DPB POINTER FROM THE QUEUE 
R1,RMCS2(R4) *SELECT DRIVE 

Scil >PROCESS THE SEAR 

RO,RD.RM [READ THE RM'S S STATUS REG. 
(SP),RS ;AND PUT IT IN RS 

(SP)+ :WAS THERE AN ERROR? 

1$ ‘BR IF ERROR 

DRVACT(R1) : CHECK DRIVE'S STATE 

$C11 IF DRIVE ACTIVE WITH ORDER 
#B1115:B1T07:! ‘its 16(R2) s INFORM USER OF ERROR RECOVER COMPLETION 
RO,RD.RM :READ ERROR REGISTER #1 
(SP)+,R5 sAND SAVE IT IN RS 

PC, SVRH70 ‘SAVE RH/RM REGISTERS 
#111,-(SP) SISSUE A DRIVE CLEAR 

RO,WRT.RM 


CZRMLAO RMOS/3/2 FORMATTER 
RH/RM DRIVER INITIALIZATION CODE 
897 033520 006105 
898 033522 100406 
899 033524 00570 
900 TE 00144 
901 033530 052762 100240 
902 033536 000443 
903 033540 004037 034704 
904 033544 000012 
905 033546 033724 
906 037550 011605 
907 033552 006126 
908 033554 100011 
909 033556 112761 177777 
910 033564 004737 035256 
911 033570 052762 110000 
912 033576 000423 
913 033600 032705 010000 
914 033604 001015 
915 033606 112761 177777 
916 033614 112761 000001 
917 033622 006301 
918 033624 012761 072460 
219 0336 006201 
°920 0336 000137 033176 
921 033640 052762 100220 
ose 033646 105061 027676 
924 033652 004737 036134 
925 033656 105761 027754 
926 033662 003002 
0336 105061 027754 
928 033670 116164 030022 
929 033676 105761 027706 
930 033702 100406 
0337 012746 000111 
933 033710 004037 035064 
0337 000000 
935 033716 033724 
0337 000137 033176 
937 033724 105761 027676 
938 033730 001405 
939 033732 004737 036112 
40 0337 004737 032174 
941 033742 000402 


942 033744 
943 
944 033744 0047 


949 033766 0 
ony 033772 1361 
952 034000 0010 
953 034002 0047 
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000016 


027706 
000016 


027676 
027706 


030000 


000016 


000016 


027750 


SC6A: 


2$: 


SC? 


za—D 
Som 


RO,RD.RM 


(SP) ,R5 
(SP)+ 
2$ 


#-1 ,ORVSTAC(R1) 
PC,SVRH70 
WBiT15°B1T12,16¢R2) 


SC 
#B1T12,R5 
3$ 


#-1 ,DRVALT(R1) 
#1, DRVSTA(R1) 


Ri 
+ pene: cesta 


DRVACT 

PC,EMPTYQ 
PC, POPQUE 
 ahaeaaaa 


ULDFLG(R1) 


he THLE RMAS (R4) 
R1) :1S a DRIVE UNSAF 
R IT IS 


DRVSTA 
2$ 
#113,-(SP) 


#111,-(SP) 
RO,WRT.RM 


SC4 
DRVACT(R1) 
1$ 
erer nee 


PC,C1? 
PC,CI7B 
SC4 


ULDFLG(R1) 
1$ 


ULDFLG(R1) 
DRV 


2s 
PC ,POPQUE 


SC4 
tiie” ak pe 


ACT(R1) 
ATABIT (RT), SRCHWT 


;WAS ‘UNSAFE’ CONDITION =1? 
‘BR IF YES 

Re 3 ANY THING IN QUEUE ? 
basen 16(RD) 
;READ DRIVE STATUS REG. #1 


: INFORM USER OF ERROR 


:SAVE, RMDS IN RS 
:BR IF NO--UNSAFE CLEARED 
DRIVE, I$ UNSAFE 
AVE. RH/RM REGISTERS 
; INFORM USER OF UNSAFE ERROR 


7“MOL’’ = 1? 


3;BR IF YES 
sACTIVE ERROR RECOVER 
; ONLINE 


;START 30 SECOND TIMER 


; INFORM USER OF ERROR 


TREMOVE THE Q 


UEUE 
;UNLOAD IN RMOGRESS OR QUEUE? 
;BR_IF NOT 

;CLEAR UNLOAD FLAG 

; CLEAR we BIT 


RELEASE COMMAND 
:DRIVE CLEAR COMMAND 


WRITE THE COMMAND INTO RPCS1 
REGISTER INDEX 


PARITY EXIT ADDRESS 
;CHECK FOR MORE DRIVES 
im IDLE? 


:GET DPB POINTER 
:PROCESS THE PARITY ERROR 


; CONTINUE 
PROCESS THE PARITY ERROR 


PROCESS THE UNCORRECTABLE PARITY ERROR 
;CHECK MORE DRIVES 

:UNLOAD IN PROGRESS"? 

BR IF NO 


;CLEAR UNLOAD FLAG 
SET DRIVE IDLE 
erent A SEARCH OPERATION FOR 
N 1/0 COMMAND? 


:BR IF vis 
;REMOVE REQUEST FROM QUEUE 


SEQ O11 


9 
CZRMLAO RMO5/3/2_ FORMATTER MACRO V03.01 11-APR-80 13:01:23 PAGE 11-17 


' RH/RM DRIVER INITIALIZATION CODE SEQ 0112 
954 034006 052762 000200 000016 BIS #B11T07,16(R2) 3SET DONE’ B 
955 034014 005737 027774 1ST SAVEFG 3 SAVE THE REGISTERS? 
956 034020 10000 BPL 2s R IF NO 
957 034022 004737 035256 JSR PC,SVRH70 :  YES=-SAVE ALL OF THE RH/RM REG'S 
958 034026 116164 030022 000016 2%: MOVB ATABIT(R1), RMAS(R4) CLEAR ATTENTION BIT 
959 034034 146137 030022 027750 BICB ATABIT(R1),SRCHWT “CLEAR IMPLIED SEEK SET 
960 034042 006301 ASL R1 WORD INDEX 
961 034044 012761 177777 030000 MOV #-1,TIMER(R1)  ;STOP CLOCK 
962 034052 006201 ASR R1 RESTORE R1 
963 034054 004737 031114 JSR PC,OPT START A REQUEST 
964 034060 000137 033176 JMP SC4 sCHECK FOR MORE DRIVES 
965 034064 010164 000010 $Cl2: MOV R1,RMCS2(R4) ;SELECT DRIVE 
966 034070 016437 000012 027666 MOV RMDS(R4),RMERRS :SAVE THE FOUR REGISTERS THAT 
967 034076 016437 000014 027670 MOV RMER1(R4) ,RMERRS+2 sWILL TELL US SOMETHING 
968 034104 016437 000042 027472 MOV RMER2(R4) ,RMERRS+4 
969 034112 016437 000040 027674 MOY RMMR2(R4) ,RMERRS+6 
970 034120 004037 030264 JSR RO,DRVINT INIT. THE STATE OF THE DRIVE 
971 034124 000401 BR 1$ s TAKE ae EXIT 
972 034126 000207 RTS PC *RETUR 
973 034130 005726 1$: TST (SP) + ;POP PC OFF OF THE STACK 
974 034132 000674 BR Sc8 PROCESS THE PARITY ERROR 
975 034134 006301 S$C13: ASL R1 SETUP TO ADDRESS WORDS 
976 034136 012761 177777 030000 MOV #-1,TIMER(R1) ‘ated THE TIMER 
977 034144 006201 ASR R1 
978 034146 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 
979 034152 116164 030022 000016 MOVB ATABIT (RID, RMAS ( Ra) :CLEAR THE ATTENTION BIT 
980 034160 105761 027726 1$: TSTB DPINT(R1) sINITIALIZING THE DRIVE ? 
981 034164 001424 BEQ 2$ [BR IF NOT 
982 034166 105061 027726 CLRB DPINT(R1) CLEAR THE INIT INDICATOR 
983 034172 004037 030264 JSR RO,DRVINT :G0 INIT THE DRIVE 
984 034176 000240 NOP ;DUMMY PARITY ERROR RETURN 
985 034200 105761 027706 TSTB DRVSTA(R1) sDRIVE ONLINE ? 
986 034204 003014 BGT 2$- ‘BR IF YES -- START ORDER 
987 034206 005702 TST R2 QUEUE ENTRY FOR THE DRIVE 
988 034210 001426 BEQ 3$ = IF NOT 
989 034212 004737 036112 JSR GETR T DPB ADDRESS 
990 034216 052762 140000 000016 BIS WBiTiS BiT14, r6ckg) :s INFORM USER THAT DRIVE OFFLINE 
991 034224 004737 035256 JSR PC,SVRH70 AVE THE REGISTERS 
992 : JSR PC,EMPTYQ ‘eRPTY THE REQUEST QUEUE 
993 034230 004737 036134 JSR PC .POPQUE ‘REMOVE THE QUEUE 
994 034234 000414 BR 
995 034236 032764 004000 000000 2$: BIT #B1T11,RMCS1(R4) iDVA SET ? 
996 034244 001006 BNE 4$ 3;SET THEN CALL OPT 
997 034246 006301 ASL R1 
998 034250 012761 060000 030000 MOV #60000, TIMER(R1) 
999 034256 006201 ASR R1 
1000 0 000402 BR 3$ 
1001 0 004737 031114 4$: JSR PC,OPT START THE PENDING REQUEST 
1002 034266 000137 033176 3$: JMP $C4 sPROCESS OTHER DRIVES 
1003 a °*-  &! 
1004 3RM TIMER ROUTINE 
1005 7 CALL : 
1006 : MOV #TIME,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
444 3 JSR PC, RMTMR sCALL RMOS TIME ROUTINE 
1009 034272 005737 027752 RMTIMR: TST ACTORV CHECK "'ACTDRV & ACTSTR'' 
1010 034276 001027 BNE 4% ;1F NON ZERO EXIT 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0113 
1011 034300 112737 000001 027753 MOVB #1, ACTSTR SET ‘‘ACTSTR'’ 
1012 034306 104412 SAVREG SA VE RO - RS 
1013 034310 005001 CLR R1 ‘START WITH DRIVE 0 
1014 034312 005003 CLR R3 
1015 034314 005763 030000 1$: TST TIMER(R3) :1S i TIMER RUNNING? 
1016 034320 002406 BLT $ F NO 
1017 034322 166663 000002 030000 SUB 2(SP), TIMER(R3) “COUNT THE INTERVAL 
1018 034330 003002 BGT 2s ‘BR IF NO SOFTWARE TIMEOUT 
1019 034332 004737 034362 JSR PC,STO ;CALL SOFTWARE TIMEOUT ROUTINE 
1020 034336 005201 2$: INC R1 :MOVE TO NEXT DRIVE 
1021 034340 005723 TST (R3)+ 
1022 034342 022701 000010 CMP #8.,R1 ;OUT OF DRIVES? 
1023 034346 003362 BGT 1$ 3;BR IF NO 
1024 034350 104413 3$: RESREG sRESTORE RO - R5 
1025 034352 105037 027753 CLRB ACTSTR ;ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
1026 034356 012616 4$: MOV (SP)+, (SP) ‘ADJUST THE STACK 
644 034360 000207 RTS PC sRETURN 
+534 ;SOFTWARE TIMEOUT ROUTINE 
1031 sNOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
1032 ; OR GREATER 
1033 3 
1034 sCAut: STO 
1035 : MOV #DRVNUM,F1 ;DRIVE NUMBER 
1036 3 JSR PC,STO CALL 
MF H4 3 RETURN 
1039 034362 010146 STO: MOV R1,-(SP) ;SAVE R1 
1040 034364 010246 MOV R2,-(SP) TSAVE R2 
1041 034366 010346 MOV R3,-(SP) sSAVE R3 
1042 034370 010446 MOV R4&,-(SP) sSAVE R4 
1043 034372 013704 030034 MOV RMADR,R4 3GET ADDRESS OF ‘'RMCS1"' 
1044 034376 010164 000010 MOV R1,RMCS2(R4) sSELECT THE DRIVE 
1045 034402 004037 034704 JSR RO,RD.RM READ “DRIVE STATUS REG" 
1046 034406 000012 RMDS 
1047 3 STO5 
1048 034410 034672 STO9 
1049 034412 105726 TSTB (SP) + 31S ‘‘DRY''=1? 
1050 034414 100436 BM! $T02 “BR IF YES 
1051 034416 105761 027726 STO1: TSTB DPINT(R1) ; TRYING TO INTIALIZE THE DRIVE ? 
1052 034422 001033 BNE T :BR IF YES 
1053 034424 105761 027736 TSTB DPRQS(R1) sOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
1054 034430 001030 BNE $102 :BR IF YES 
1055 034432 013702 027746 MOV TRNSWT ,R2 sPICKUP TRANSFER WAIT QUEUE 
1056 034436 020137 030020 CMP R1,D0TUW ; TRANSFER UNDERWAY ON THIS DRIVE? 
1057 034442 001404 BEQ 1$ ‘BR IF YES 
1058 034444 000137 034672 JMP sree :1F NOT DON'T BOTHER DRIVES 
1059 034450 004737 036112 JSR SETR GET DPB ADDRESS 
1060 034454 052762 101000 000016 1$: BIS *eiTi5 B1T09, 16cha) ;SET THE ERROR FLAGS 
1061 034462 004737 035256 JSR PC,SVRH70 : SAVE RH/RM REGISTERS 
1062 : MOV #CLR, RMCS2(R4) ;“‘INIT'’ THE MASS BUS 
1063 034466 105061 027676 CLRB DRVACT(R1) sDRIVE IS IDLE 
1064 034472 105061 027754 CLRB ULDFLG(R1) ;CLEAR THE UNLOAD FLAG 
1065 034476 005037 027746 CLR TRNSWT >CLEAR DPB ADDRESS 
1066 034502 012737 177777 030020 MOV #-1,0TUW *CLEAR THE TRANSFER DRIVE # 
1067 034510 000470 BR $109 ;DON'T BOTHER OTHER DRIVES 
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030000 


030000 


000016 
030000 


000016 


035052 
034730 


000002 


$102: MOVB RMAS(R4) ,RS sREAD ATTENTION REG 
B1TB ATABIT(RY), R5 Ht ATTENTION FOR THIS DRIVE UP ? 


BNE 
TSTB — DPINT(R1) ‘TRYING TO INTIALIZE THE DRIVE ? 
BNE $106 ‘BR IF YES = DRIVE NOT ONLINE 
TSTB  DPRQS(R1) [OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
é BNE S107 :BR IF YES = NO RESPONSE TO REQUEST 
. BR 5109 SOTHER WISE EXIT 
S103: TSTB DPINT(R1) : INITIALIZING THE DRIVE ? 
BNE 1$ R IF INIT PENDING 
TSTB = DPRQS(R1) :PORT REQUEST PENDING ? 
BEQ $109 F NOT 
1$: MOV #-1, TIMER(R3) ; STOP THE TIMER 
BR $109 
ST05: SR Pc .C18 “G0 HANDLE THE PARITY ERROR 
$106: CLRB DPINT(R1) sCLEAR THE INITIALIZE INDICATOR 
CLRB = DRVSTA(R1) 'SET UNIT OFFLINE 
MOV #-1,TIMER(R3) STOP THE TIMER 
JSR PC,GETREQ :GET THE DPB ADDRESS 
TST R2 :REQUEST IN QUEUE ? 
BEQ $109 R IF NOT 
BIS WBITIS!BITI4, 160k) ; INFORM THE USER DRIVE NOT AVAILABLE 
H 


F 
STO07: MOV A -TIMER(R3)  ;STOP THE T 
CLRB DPRQS(R1) ;CLEAR PORT REQUEST INDICATOR 


JSR PC,GETREQ :GET DPB ADDRESS 
TST R2 ae ENTRY FOR DRIVE ? 
BEQ $T09 ONE 
MOV ght d Me 16cRB) : INFORM USER OF PORT REQUEST ERROR 
STO8: JSR PC,EMP ;CLEAR THE QUEUE FOR THE DRIVE 
JSR PC, SVRHYO 7 SAVE a ene 
STO9: MOV (SP)+,R4 RESTORE R 
MOV (SP)+,R3 ;RESTORE RS 
MOV (SP)+,R2 sRESTORE R2 
MOV (SP)+,R1 ;RESTORE R1 
RTS PC ; RETURN 
;ROUTINE TO READ A RH/RM REGISTER 
7 CALL 
: JSR RC,RD.RM +60 READ A REGISTER 
; INDEX ;REG. INDEX FROM BASE 
: ERRADR ERROR ADDRESS--PROCESS ERROR STARTING 
; AT THIS ADDRESS 
: RETURN :CONTENTS OF REG. 1S ON THE STACK 
RD.RM: MOV MCPEMX,RD.RM2 i MAX. ~ Wp ALLOWED 
MOV (SP) ,-(SP) sSAVE RO FOR RET 


ETURN 
MOV RMADR,RD.ADR :FORM THE DESIRED ADDRESS 
ADD (RO)+,RD.ADR [USING THE BASE AND THE INDEX 
RD.RM1: MOV a(PC)+,(PC)+ sREAD THE DESIRED REGISTER OF THE RM DRIVE 
peoeees -WORD 0 SADDRESS IS FORMED HERE 


D.WRD: .WORD :REG. CONTENTS PUT HERE 
V RD.WRD,2(SP) RETURN IT TO THE USER 
MOV RMADR,-(SP) ;PUT THE ADDRESS oN THE STACK 
ADD #RMCS2, (SP) sFORM THE ADDRESS OF RMCS2 
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035110 
67 035116 
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75 035150 
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77 035154 
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035154 
000150 
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035046 


035154 


2$: 


3$: 


D 
RD.RM2: . 


RD.RM3: 
RD.RM4: 


MOV 
RTS 


#B1T12,a(SP)+ 
RD .RM3 


ARMADR,-(SP) 
#B1113,(SP) 


1$ 
(SP)+,(RO)+ 
RD.RM4 
hereon 
DTUW 

2$ 

#B1T14, (SP) 
2$ 

(SP)+ 
RD.RM3 
#B1T14, (SP) 
(SP) 
RMADR, 3$ 

3$ 

pel ontacheves 
(PC)+ 

3 

RD.RM1 


(RO) ,RO 
(SP)+, (SP) 
RO 


ROUTINE TO WRITE A REGISTER 


CALL 


WRT .RM: 


1$: 


WRT.R1: 
WRT.WD: 


WRT.AD: . 


ERRADR 


DATA,~(SP) 
RO,WRT.RM 


MCPEMX ,WRT.R2 


2(SP) ,WRT.WD 
SP)+, (SP) 
0)+,WRT.AD 


( 

(R 

1$ 

#150, WRT .WD 
1$ 

RO 


(SP) 
#*C7,(SP) 


(SP)+,WRT.WD+1 


RMADR ,WRT.AD 
al aaanants 


0 
RMADR, = (SP) 
#RMCS2, (SP) 
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sCHECK THE ‘NED’ BIT 


BR IF DRIVE 
READ RMC 
;D1D MCPE SET 
: F YES 
sADJUST FOR R 
sEXIT 


SAVE THE ADD 
;REPORT ‘'MCPE 
=" TRANSFE 
: TRE" ~ 1 ? 


;NO 
7 YES=-CLEAN 0 
; TAKE THE FAT 


;CLEAR ‘'MCPE'' BY SENDING A ‘'l"' TO 


POSITION BEF 
;FORM ADDRESS 


WRITE THE HI 


NON-EXISTENT 


? 
ETURN 


RESS IN "SESCAPE* 
RROR 


R UNDERWAY? 


FF THE STACK AND 
AL ERROR EXIT 


ORE WRITING 
OF HIGH BYTE 


7 BYTE OF RMCS1 


ADDRESS STORAGE 


sEXCEEDED MAX 


:BR_IF NO 
FATAL ERROR 


. RETRYS 


EXIT 


:DATA TO BE LOADED ON THE STACK 

CALL THE ROUTINE TO LOAD(WRITE) THE REG. 
: INDEX OF THE REGISTER T9 BE LOADED 
;ADDRESS TO RETURN TO ON AN ERROR 


ERROR FREE RETURN 


: THE RH/RM 
FORM THE sayy te 


:PUT THE ADDRE 
:FORM THE ADDRESS OF RMCS2 


MAX RETRYS ALLOWED 
SAVE THE WORD TO WRITE 
sADJUST THE STACK 

ET INDEX OF REGISTER TO BE WRITTEN 
;BR IF NOT RMCS1 
1S THE COMMAND FOR DATA TRANSFERS? 
: YES--DON' 


HERE 
SS_ON THE STACK 


OF THE DISK REG. 
REG. 


"TRE 


SEQ 0115 
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SEQ 0116 


1180 035166 032736 010000 BIT WBIT12,a(SP)+* ;CHECK THE "NED* BIT 
1181 035172 001025 BNE WRT.R3 :BR IF DRIVE NON-EXISTENT 
1182 035174 004037 034704 JSR RO,RD.RM :CHECK FOR PARITY ERROR ON WRITE 
1183 035200 000014 RMER1 
1184 035202 035246 WRT.R3 
1185 035204 032726 000010 BIT #B1T03,(SP)+ 
1186 035210 001420 BEQ WRT.RG :BR IF "PAR=0"" 
1187 035212 016037 177776 035224 MOV =2(RO),1$ :PICKUP THE INDEX 
1188 035220 004037 034704 JSR RO,RD.RM :READ THE REG. 
1189 035224 000000 1$: .WORD 0 ' yREG. INDEX 
1190 035226 035246 WRT.R3 ;RETURN TO THIS ADDRESS ON ERROR 
1191 035230 004037 036202 JSR RO,ES.SAV sSAVE THE ADDRESS IN ‘SESCAPE’ 
035234 104004 EMT 4 sREPORT THE PARITY ON WRITE ERROR 
1192 035236 005726 TST (SP)+ SCLEAR OFF THE STACK 
1193 035240 005327 DEC (PC)+ :DECREMENT THE ERROR COUNT 
1194 035242 000003 WRT.R2: .WORD sRETRY COUNTER 
1195 035244 002341 BGE WRT.R1 :TRY AGAIN IF NOT FINISHED 
1196 035246 011000 WRT.R3: MOV (RO) ,RO STAKE THE ‘PARITY ON WRITE'' ERROR EXIT 
1197 035250 000401 BR WRT.R TEXIT 
1198 035252 005720 WRT.R4G: TST (RO)+ sADJUST FOR ERROR FREE EXIT 
1199 035254 000200 WRT.RS: RTS RO 
4344 ;ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14 
1203 SCALL 
1204 : MOV #DPBNUM, R2 :DPB POINTER TO R2 
1205 ; JSR PC,SVRH70 [SAVE THE DRIVES REG'S 
1207 035256 104412 SVRH70: SAVREG ZSAVE RO - RS 
1208 035260 005702 TST R2 SQUEUE ENTRY FOR THE DRIVE ? 
1209 035262 001442 BEQ 6$ :BR IF NONE 
1210 035264 013704 030034 MOV RMADR,RG 
1211 035270 111264 000010 MOVB (R2),RMCS2(R4) ;SELECT DRIVE 
1212 035274 016203 000014 MOV 14(R2) ,R3 ‘GET THE ERROR TABLE POINTER 
1213 035300 001433 BEQ $ sEXIT IF NO ADDRESS 
1214 035302 005037 035336 CLR 3$ :COUNTER & POINTER 
1215 035306 023727 035336 000022 1$: CMP 3$.,, #RMDB sREACHED THE BUFFER REGISTER ? 
1216 035314 001006 BNE , ; F NOT 
1217 035316 032764 000200 000010 BIT #BITO7,RMCS2(R4) :"OR' SET ? 
1218 035324 001002 BNE 2$ BR T 
1219 035326 005023 CLR (R3)+ sSTORE RMDB AS ZEROES 
1220 035330 000405 BR 4$ : CONT INUE 
1221 035332 004037 034704 2$: JSR RO,RD.RM sREAD THE SELECTED REGISTER 
1222 035336 000000 3$: .WORD 0 SREGISTER INDEX 
1223 035340 035364 5$ sERROR RETURN ADDRESS 
1226 035342 012623 MOV (SP)+,(R3)+4 :STORE THE REGISTER CONTENTS 
1225 035344 023727 035336 000046 4$: CMP 3$, #RMEC2 sREACHED THE END ? 
1226 035352 001406 BEQ 6$ :BR IF Y 
1227 035354 062737 000002 035336 ADD #2,3% : INCREMENT THE REGISTER INDEX 
1228 035362 000751 BR sCONTINUE READING THE REGISTERS 
1229 035364 004737 032174 5$: JSR PC,CI7 sPROCESS THE UNCORRECTABLE PARITY ERROR 
1230 035370 104413 6$: RESREG SRESTORE RO - RS : 
1231 035372 000207 S PC SRETU 
1238 : ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A "TRE" 
7 CALL 
1235 ; MOV #ORVNUM,R1 :DRIVE NUMBER TO R1 
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000010 


SEQ 0117 
: JSR PC, SET.IE :SET “IE” 
; RETURN 
SET.1E: MOV R4,-(SP) SSAVE RG 
MOV RMADR,R4G [PICKUP ADDRESS OF RMCS1 
MOV R1,RMCS2(R4) SELECT DRIVE 
MOV R4),=(SP :READ RMCS1 
BIS #B1TI4, (SP) :SET THE ‘TRE’ BIT OF THE WORD READ 
SWAB. (SP) [ADJUST FOR DATO 
MOVB ~ #BLT06,(R4) [SET "IE" 
BIT #B1T12.RMCS2(R4) :1S "24? 
BNE 1$ SYES=-CLEAR "'TRE"’ 
Ist (SP)¢ [CLEAN OFF THE STACK 
1$ MOVB = (SP) +, 1(R4) SCLEAR "TRE" 
2$ MOV (SP)+.R4 TRESTORE R4 
RTS PC [RETURN TO CALLER 
SQUEUE COUNT 
QCNT: .BYTE 0 :DRIVE 0 
“BYTE 0 [DRIVE 1 
"BYTE 0 SDRIVE 2 
“BYTE 0 “DRIVE 3 
“BYTE 0 ‘DRIVE 4 
“BYTE 0 [DRIVE 5 
‘BYTE 0 ‘DRIVE 6 
“BYTE 0 “DRIVE 7 
ZQUEUE INPUT POINTERS 
QINPT: .WORD aQDdRvO :DRIVE 0 
[WORD QDRV1 ‘DRIVE 1 
“WORD aQDRV2 =DRIVE 2 
“WORD aQDRV3 [DRIVE 3 
“wORD QDRV4 :DRIVE 4 
“WORD QDRVS ‘DRIVE 5 
“WORD QDRV6 [DRIVE 6 
“WORD QDRV7 ‘DRIVE 7 
;QUEUE OUTPUT POINTERS 
QOUTPT: .WORD  aDRVvO sDRIVE 0 
“wORD QDRV1 DRIVE: 1 
“WORD  aQDRV2 ‘DRIVE 2 
“WORD QDRV3 “DRIVE 3 
“WORD QDRV4 *DRIVE 4 
“WORD QDRVS “DRIVE 5 
“WORD QDRV6 SDRIVE 6 
“WORD QDRV7 ‘DRIVE 7 
QSTART: .WORD apdRvO :DRIVE 0 START ADDRESS 
QSTOP: :WORD  QDRV1 [DRIVE 0 STOP ADDRESS & DRIVE 1 START ADDRESS 
“wORD aQDRV2 *STOP DRIVE 1--START DRIVE 2 
“wORD aQDRV3 [STOP DRIVE 2=-START DRIVE 3 
“WORD QDRV4 >STOP DRIVE 3--START DRIVE 4 
“WORD QDRVS ‘STOP DRIVE 4--START DRIVE 5 
“WORD QDRV6 ‘STOP DRIVE S--START DRIVE 6 
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» WORD QORV7 ;STOP DRIVE 6-<START DRIVE 7 
«WORD QTERM ;STOP DRIVE 
;DRIVE REQUEST QUEUES 
QDRvVO -BLKW 10 
QDRvVI -BLKW 10 
QDRV2: .BLKW 10 
QDRV BLKW 10 
QDRV4 -BLKW 10 
QDRVS: .BLKW 10 
QDRV6 -BLKW 10 
QDRv7 -BLKW 10 
QTERM= 
;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
CALL 
3 JSR PC, CLRQUE 
CLRQUE: SAVREG sSAVE RO = RS 
MOV #QCNT,R2 SZERO THE QUEUE COUNTS 
CLR (R2)+ sDRIVES 0 & 1 
CLR (R2)+ sDRIVES 2 & 3 
CLR (R2)+ sDRIVES 4 & 5 
CLR (R2)+ sDRIVES 6 & 7 
MOV #8. ,R3 [MOVE THE STARTING 
MOV #OSTART,RI SADDRESS OF THE QUEUE INTO 
1$ MOV (R1)+#, (R2)4 [THE QUEUE INPUT POINTER 
DEC R3 
BNE 
MOV #8. ,R3 :MOVE THE STARTING ADDRESS 
MOV #OSTART,RI [OF THE QUEUE INTO THE 
2$: MOV (R1)+,(R2)4 [QUEUE OUTPUT POINTER 
DEC R3 
BNE 2$ 
RESREG :RESTORE RO - RS 
RTS PC 
sEMPTY THE QUEUE SPECIFIED BY R1 
CALL 
; MOV DRVNUM,R1 :DRIVE NUMBER TO R1 
; JSR PC,EMPTYQ 
EMPTYQ: CLRB QCNTCRI) :CLEAR NUMBER OF ITEMS IN QUEUE 
L 
MOV QINPT(R1) ,QOUTPT(R1) :SET OUTPUT QUEUE POINTER=INPUT POINTER 
RTS PC 
;ROUTINE TO PUT A REQUEST IN QUEUE 
CALL 
: MOV #DRVNUM,R1 :DRIVE NUMBER 
: MOV #DPB,R2 SADDRESS OF PARAMETER BLOCK 
; JSR RO, DRVQUE *GO PUT REQUEST IN QUEUE 


SEQ 0118 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0119 


1350 3 RETURNI RETURN HERE IF QUEUE IS FULL 

$32) ; RETURN2 RETURN HERE IF REQUEST IS IN QUEUE 
1388 036036 122761 000010 035446 DRVQUE: CMPB #10,QCNT(R1) 318 QUEUE FULL? 

1354 036044 001421 BEQ 7BR IF YES-TAKE RETURNI 

1355 ter | 105261 035446 INCB QCNT(R1) : INCREMENT QUEUE COUNT 

1356 036052 006301 ASL R1 

1357 036054 010271 035456 MOV R2,@QINPT(R1)  ;PUT THIS REQUEST IN QUEUE 

1358 036060 062761 000002 035456 ADD #2,QINPT(R1) ;UPDATE THE QUEUE POINTER 

1359 036066 026161 035456 035520 CMP QINPT(R1) ,QSTOP(R1) ;TIME TO RESET THE POINTER 
1360 036074 001003 BNE 1$ 3 N 

1361 036076 016161 035516 035456 MOV QS? .T(R1),QINPT(R1) 7 YES=-RESET POINTER 

1362 036104 006201 1$: ASR R* 

1363 036106 005720 TST (RO)+ ;TAKE RETURN 2 

eee 036110 000200 2$: RTS RO sRETURN TO USER 

Hr ROUTINE TO GET THE ‘DPB’ ADDRESS OF NEXT REQUEST IN QUEUE 

1368 CALL 

1369 : MOV #DRVNUM,R1 DRIVE NUMBER TO R1 

1370 ; JSR PC,GETREQ 3G0 GET THE REQUEST 

1371 ; RETURN ;R2="'DPB'’ ADDRESS OF THE REQUEST 
13e ; ;R2=0 IF NO REQUEST IN QUEUE 

1374 036112 005002 GETREQ: CLR R2 

1375 036114 105761 035446 TSTB QCNT(R1) 31S THERE ANY REQUEST IN QUEUE? 
1376 036120 001404 BEQ 23 3NO 

1377 036122 006301 1$: ASL R1 

1378 036124 017102 035476 MOV @QOUTPT(R1),R2 ;PICKUP ‘‘DPB'' POINTER FOR THIS DRIVE 
1379 036130 006201 ASR R1 

rae 036132 000207 2$: RTS PC RETURN TO USER 

1ee8 ROUTINE TO ‘'POP"' THE REQUEST FROM QUEUE 

1384 CALL 

1385 : MOV #DRVNUM,R1 DRIVE NUMBER TO R1 

1386 : JSR PC, POPQUE ;CALL TO REMOVE REQUEST 

tH : RETURN :R2=ADDRESS OF DPB REMOVED 

1389 036134 105361 035446 POPQUE: DECB QCNT(R1) ;DECREMENT QUEUE COUNT 

1390 036140 006301 ASL BR} 

1391 036142 017102 035476 MOV @QOUTPT(R1),R2 ;GET THE ‘DPB’ POINTER 

1392 036146 005071 035476 CLR @QOUTPT(R1) REMOVE DPB ADDRESS FROM THE QUEUE 
1393 036152 062761 000002 035476 ADD #2,QOUTPT(R1) ; UPDATE THE QUEUE POINTER 

1394 036160 026161 035476 035520 CMP QOUTPT(R1) ,QSTOP(R1) sTIME TO RESET THE POINTER? 
1395 036166 001003 BNE 1$ ;NO--BR TO EXIT 

1396 036170 016161 035516 035476 MOV QSTART(R1),QOUTPT(R1)  ;YES=--RESET THE POINTER 
1397 036176 006201 1$: ASR Rl 

f+ 4 036200 000207 RTS PC :RETURN TO USER 

1401 ;ROUTINE TO SAVE THE CONTENTS OF ‘SESCAPE' WHEN THE DRIVER 

1402 ;REPORTS AN ERROR DIRECTLY. 

1403 ; 

1404 : CALL 

1405 : JSR RO,ES.SAV 

1406 : ERROR N : THE ERROR CALL 

1407 : RETURN THE RETURN IS PAST THE ERROR CALL 
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RH/RM DRIVER INITIALIZATION CODE 


SEQ 0120 
1408 
1409 8376602 Hata 036216 ES.SAV: MOV (RO)+,1$ :GET THE ERROR CALL 
1410 036206 013746 001176 MOV SESCAPE ,-(SP) : SAVE THE ADDRESS IN *SESCAPE' 
1411 036212 005037 001176 CLR SESCAPE : CLEAR THE ESCAPE RETURN 
1412 036216 000000 1$: -WORD 0 sTHE ERROR CALL IS MOVED HERE 
1413 036220 012637 001176 MOV (SP)+,SESCAPE : RESTORE THE ESCAPE ADDRESS 
ete 036224 000200 RTS RO ; RETURN 


E 10 
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TELETYPE MESSAGES SEQ 0121 
} -SBTTL TELETYPE MESSAGES 
3 036226 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
4 036257 040 117 116 UNTON: .ASCIZ / ONLINE 
5 036247 040 116 117 NOTRM: .ASCIZ @ NOT AN RM05/3/2a 
6 036270 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT 
? 036505 040 125 116 NOTSAF: .ASCIZ / UNS 
8 036315 040 111 123 LODEV: .ASCIZ / 1S LOAD DEVICE/ 
9 036335 122 115 060 $RMO2: .ASCIZ /RMO2/ 
10 036342 122 115 060 $RMO3: .ASCIZ /RMO3/ 
11 036347 122 115 060 $RMO5: .ASCIZ /RMOS/ 
12 036354 200 125 116 UNSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
13 036372 200 104 122 MUNIT: .ASCIZ <CRLF>/DRIVE: / 
14 036403 060 000 ZERO: .ASCIZ /0/ 
15 036405 040 057 040 SLASH: .ASCIZ @/ 4a 
16 036411 103 000 : eASCIZ = /C/ 
17 036413 106 000 F: eASCIZ = /F/ 
18 036415 124 000 T: eASCIZ = /T/ 
19 036417 131 000 Y: eASCIZ = /Y¥/ 
20 036421 062 000 TWO: ASCIZ /2/ 
21 036425 040 BLNKS4: .ASCI] / / 
22 036424 040 BLNKS3: .ASCI] / / 
23 036425 040 BLNKS2: .ASCI] / / 
24 036426 040 000 BLNKS1: .ASCIZ / / 
25 036430 105 116 124 ENTADR: .ASCIZ /ENTER ADDRESS LIMITS:/<CRLF> 
26 036457 040 077 104 MOFFLN: .ASCIZ / 2DRIVE OFFLINE/<CRLF> 
27 036500 040 077 104 MDRNP: .ASCIZ / 2DRIVE NOT PRESENT/<CRLF> 
28 036525 040 077 104 MER11: .ASCIZ / 2?DRIVE NOT AVAILABLE/<CRLF> 
29 036554 040 077 104 MUSDR: .ASCIZ / ?DRIVE UNSAFE/<CRLF> 
30 036574 040 077 104 MLODEV: .ASCIZ / 2DRIVE 1S LOAD DEVICE/<CRLF> 
31 036624 040 123 105 MSELD: .ASCIZ / SELECTED/ 
32 036636 200 120 122 MMODE: .ASCIZ <CRLF>/PROGRAM MODE (F, C OR Vv): / 
33 036672 200 106 117 MFORMT: .ASCIZ <CRLF>/FORMAT & VERIFY/ 
34 036713 200 106 117 MCHECK: .ASCIZ <CRLF>/FORMAT & VERIFY WITH ROTATING DATA PATTERN/ 
35 036767 200 126 105 MVERFY: .ASCIZ <CRLF>/VERIFY ONLY/ 
36 037004 200 117 120 MSIZE: .ASCIZ <CRLF>/OPERATE IN 32 SECTOR MODE (Y OR N) ? / 
37 037053 200 117 120 MSEC30: .ASCIZ <CRLF>/OPERATION WILL BE IN 30 SECTOR (18 BIT) MODE/<CRLF> 
38 037132 200 117 120 MSEC32: .ASCIZ <CRLF>/OPERATION WILL BE IN 32 SECTOR (16 BIT) MODE/<CRLF> 
39 037211 111 116 126 BADENT: .ASCIZ /INVALID ENTRY/<CRLF> 
40 037230 105 116 104 MADRER: .ASCII /ENDING DISK ADRS MUST 1 fou TO OR GREATER/<CRLF > 
41 037305 124 110 101 eASCIZ = /THAN STARTING ADRS/<CRLF 
42 037331 200 123 105 MSELP: .ASCII ran tgs DATA PATTERN/<CRLF> 
43 037356 040 050 060 -ASCII (0) ) ZERO'S /<CRLF> 
44 037373 040 050 061 -ASCII 1 (4) ONE 'S/<CRLF> 
45 037406 040 050 062 ASCII / (2) WORST CASE/<CRLF> 
46 037426 105 116 124 -ASCIZ /ENTER (0, 1 OR 2): / 
47 037452 200 123 124 MSFOR: .ASCIZ <CRLF>/STARTING FORMAT ON ear’ / 
48 037505 200 123 124 A pad sASCIZ <CRLF>/STARTING CHECK ON DRIVE / 
49 037537 200 123 124 MSQVER: .ASCIZ <CRLF>/STARTING QUICK VERIFY ON enive / 
50 037600 200 123 124 MSVER: .ASCIZ <CRLF>/STARTING VERIFY wr DRIVE / 
51 037633 200 106 117 MFECMPT: .ASCIZ <CRLF>/FORMAT COMPLETE, 
52 037656 200 103 110 MCCMPT: .ASCIZ <CRLF>/CHECK COMPLETE, / 
53 037700 200 126 105 MVCMPT: .ASCIZ <CRLF>/VERIFY COMPLETE, / 
54 037723 124 117 124 NUMERR: .ASCIZ /TOTAL ERRORS DETECTED: / 
55 037753 200 052 052 STARS: .ASCIZ <CRL Looe coeeeee ane at e 
56 037775 120 122 105 ADDRIS: .ASCIZ /PRESENT ADDRESS IS: 
57 040022 105 116 124 MESG1: .ASCIZ /ENTER THE SERIAL NUMBER (MAX. 10 OCTAL DIGITS)/ 
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TELETYPE MESSAGES SEQ 0122 

58 040101 200 123 116 SNI: eASCIZ <CRLFD>/SN @ : 

59 040112 200 117 126 MESG3: .ASCI] <CRLF>/OVER i26. BAD  ahieai HAVE BEEN DETECTED/<CRLF> 

60 040164 120 101 103 -ASCIZ /PACK NOT ACCEPTABLE 

61 040212 200 111 116 MESG2: .ASCI] <CRLF>/ INCORRECT MANUF ACTURES DEFINED BAD SECTOR INFORMATION/ 

62 040300 200 012 111 eASCIZ §=<CRLFD><LF>/INITI ae THE BAD SECTOR FILE (Y¥ OR N) ?/ 

63 040354 200 101 114 MESG4: .ASCI] <CRLF>/ALIGNMENT P 

64 040373 200 120 122 MHALT: .ASCIZ <CRLF>/PROGRAM HALTED. Hy 

65 040415 200 123 105 MSGBLK: .ASCII] <CRLF>/SELECT ONE OF ton FOLLOWING FUNCTIONS/<CRLF> 
040464 113 105 131 eASCII] /KEYIN U.S.R. BAD SECTORS 1... .cceccccccccccees 0/<CRLF> 

67 040544 120 122 111 eASCI] /PRINT M.F.G. BAD SECTORS.......ccceccceccceees 1/<CRLF> 

68 040624 120 122 111 -ASCI] /PRINT U.S.R. 2. SECTORS... cccccccs eevcccceces 2/<CRLF> 

69 040704 111 116 111 ASCII /INITIALIZE U.S.R. BAD SECTOR FILE...........-. 3/<CRLF > 

70 040764 120 122 111 eASCI] /PRINT A SECTOR OF THE LAST TRACK......ceceeees 4/<CRLF> 

71 041044 120 122 111 -ASCI] /PRINT THIS MESSAGE....... eeccccccccces eecccece 5/<CRLF> 

72 0411 105 130 111 -ASCIZ /EXIT eeeeeeeeeeeeeeeeeeeeeeeeeeeee cotvenas et Roe 

73 041204 200 105 116 MUTLTY: .ASCIZ <CRLF>/ENTER UTILITY FUNCTION: / 

74 041236 200 105 116 MESGS: .ASCIZ <CRLF>/ENTER 16 BIT M.F.G. BAD SECTOR ADDRESS IN DECIMAL/ 

75 041321 200 105 116 MESG6: .ASCIZ <CRLF>/ENTER 18 BIT M.F.G. BAD SECTOR ADDRESS IN DECIMAL/ 

76 041404 200 105 116 MESG7: .ASCIZ <CRLF>/ENTER 16 BIT U.S.R. BAD SECTOR ADDRESS IN DECIMAL/ 

77 041467 200 105 116 MESG8: .ASCIZ <CRLF>/ENTER 18 BIT U.S.R. BAD SECTOR ADDRESS IN DECIMAL/ 

78 041552 200 061 066 MESG9: .ASCIZ <CRLF>/16 BIT M.F.G. BAD SECTOR FILE IN OCTAL/ 

79 041622 00 061 070 MESGIO: .ASCIZ <CRLF>/18 BIT M.F.G. BAD SECTOR FILE IN OCTAL/ 

80 041672 200 061 066 MESGI1: .ASCIZ <CRLF>/16 BIT U.S.R. BAD SECTOR FILE IN OCTAL/ 

81 041742 200 061 070 MESGI2: .ASCIZ <CRLF>/18 BIT U.S.R. or SECTOR FILE IN OCTAL/ 

82 042012 105 116 124 MESG13: .ASCIZ /ENTER SECTOR NUMBER : / 

83 042041 104 117 116 MESG14: .ASCIZ /DONE !/<CRLF> 

84 042051 200 105 116 MESG15: .ASCIZ <CRLF>/ENTER M.F.G. BAD SECTOR ADDRESS IN DECIMAL/<CRLF> 

85 3MESG16:.ASCIZ /ILLEGAL BAD SECTOR, PACK NOT ACCEPTABLE !/<CRLF> 

86 042126 127 122 111 MESGI7: .ASCII] /WRITE BAD SECTOR FILE NOT SUCCESSFUL,/<CRLF> 

Hi 042174 120 101 103 -ASCIZ /PACK 1S NOT ACCEPTABLE !/<CRLF> 

89 -EVEN 


jae 61 
CZRMLAO RMOS/3/2 FORMATTER MACRO VO3.01 11-APR=-80 13:01:23 Pace 15 


ERROR MESSAGES SEQ 0123 

1 -SBTTL ERROR MESSAGES 

g 042226 122 110 057 EMI: «ASCIZ @RH/RM INTERRUPT OCCURRED (RMAS=0)a 

4 042270 125 116 105 EM2: *ASCIZ = /UNEXPECTED ATTENTION OCCURRED/ 

5 042326 115 101 123 EMS: eASCIZ = /MASSBUS PARITY ERROR. (MCPE=1)/ 

6 042364 115 101 123 EMG: -ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 

7 042421 10} 104 104 EMS: sASCIZ /ADDRESS PLUG CHANGE BIT SET/ 

8 042455 122 110 057 EM6: -ASCIZ @RH/RM DIDN'T RESPOND TO ADDRESSINGA@ 

9 042520 124 122 101 EM?: -ASCIZ STRACE/SECTOR FIELD IN HEADER IS INCORRECTA@ 
10 042572 104 122 111 EM10: ASCIZ /DRIVE OFFLINE/ 

11 042610 120 105 122 EM11: .ASCIZ /PERSISTENT DRIVE UNSAFE ERROR/ 

12 042646 125 116 103 EM12: .ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 

13 042711 123 117 106 EM13: .ASCIZ /SOFTWARE TIMEOUT/ 

14 042732 104 122 111 EM14: .ASCIZ /ORIVE UNSAFE ERROR/ 

15 042755 103 117 116 EM15: .ASCIZ @CONTROLLER/DRIVE ERROR DURING WRITE@ 

16 043021 103 117 116 EM16: .ASCIZ @CONTROLLER/DRIVE ERROR DURING WRITE CHECKa 
17 043073 122 105 124 EMI7: ASCIZ @RETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE@ 
18 043151 104 101 124 EM20: .ASCIZ @DATA ERROR DURING WRITE CHECKa 

19 043207 103 117 116 EM21: ASCIZ @CONTROLLER/DRIVE ERROR VERIFYING HEADERS@ 
20 043260 047 110 103 EM22: ASCIZ @'HCE’ OR 'HCRC’ ERROR VERIFYING HEADERS@ 
21 043330 103 131 114 EM23: .ASCIZ @CYLINDER FIELD IN HEADER IS NOT CORRECTA@ 
22 043400 127 122 111 EM24: .ASCIZ @WRITE CHECK ERRORA 
$i 043422 11 114 114 EM25 ASCIZ /ILLEGAL BAD SECTOR, PACK NOT ACCEPTABLE/ 


ee a oe A A BE EB BB BB BB BB BB EB BB BB BE BB BB OB BB A OE oe BE a a a ee eee 
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ERROR MESSA SEQ 0124 

1 0434 122 115 101 DHI: eASCIZ /RMAS RMCS1 RMER1 RMER2 RMDS RMDC RMDA/ 

2 043540 104 122 111 ~DH2: -ASCIZ /DRIVE RMDS RMER1 RMER2 RMAS RMCS1/ 

3 043612 104 122 111 DHS: -ASCIZ /DRIVE REG ADR DATA RMCS1 RMER1 RMER2/ 

4 043663 104 122 111 DH4: -ASCIZ /DRIVE REG ADR GOOD BAD RMCS1 RMER1 RMER2/ 

5 043746 122 110 040 DHé: -ASCIZ /RH ADDRESS/ 

6 043761 104 122 111. ~DH10: eASCIZ /DRIVE ERR PC RMCS1 RMCS2 RMDS ee RMER2/ 

7 044046 122 115 105 DHIOA: .ASCIZ /RMECT RMEC2 RMWC RMBA RMDA RMAS RMLA/ 

8 044132 122 115 104 DH10B: .ASCIZ /RMDB RMMR1 = RMDT RMSN RMOF CYLINDER TRACK/ 

9 044210 104 122 111 ~DHI7: -ASCIZ /DRIVE ERR PC CYLINDER TRACK SECTOR/ 

10 044257 104 122 111 DH20: -ASCIZ /DRIVE ERR PC ge TRACK SECTOR/ 

11 044326 122 115 103 DH20A: .ASCIZ /RMCS1 RMCS2 MDS RMER1 RMER2 RMMR2 RMEC1 RMEC2/ 
12 044423 122 115 127 DH20B: .ASCIZ /RMWC RMBA RMA RMAS RMLA RMDB RMMR 1 RMDT / 
13 044521 122 115 123 DH20C: .ASCIZ /RMSN RMOF CYLINDER TRACK/ 

14 0464554 104 122 111 DH23: -ASCIZ /DRIVE ERR PC EXPCTD RECVED/ 

15 044613 040 040 040 DH24: ASCII / MEMORY DISK/<CR><LF> 
16 044701 104 122 11 -ASCIZ /DRIVE ERR PC CYLNDR TRACK SECTOR DATA DATA/ 

Ht 044766 104 122 111 ~DH25: -ASCI1Z /DRIVE CYLNDR TRACK SECTOR / 

19 EVEN 
20 


CZRMLAO arts he FORMATTER 


ERROR MESSAG 
1 045030 
4 


Se et et ed 
SF EMONMWESOAOL SOW 
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= 
w 
WA 
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—m 


WWII APPR 


001222 


Soooooo WWwNHo 


Sm Ss OO —NOu 
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001364 
001366 


D125: 


10 
15 
SEQ 6125 


ATTN, RM.REG,RM.REG4+14, RM. 2EG4+42,RM.REG+12,RM.REG+34,RM.REG+6 
DDRIVE ,RMERRS ,RMERRS+2,RMERRS*+4 ATTN, RMCS{ 

DDRIVE ,RD.ADR,RD.WRD,RM.REG,RM.REG+14,RM.REG+42 

a at atte nt tt 


RM.REG+6,RM.REG+16,RM.REG+20 
RM.REG+22,RM.REG+26 RM. REG+26,RM.REG+ $0,RM.REG*32,DS.CYL.DS.TRK 


a : : 4, RM.REG*+42,RM.REG+40,RM.REG+44,RM.REG+46 
RM.REG+2,RM.REG+4, RM. REG+6.RM.REG*+16.RM.REG*+20,RM.REG+22.RM.REG+24 .RM_REG*26 
RM. REG*+30,RM.REG*+52,DS.CYL.DS.TRK 

DRIVE, SERRPC, RBUF +4 .RBUF 

DRIVE, SERRPC.DS.CYL.DS. TRK, SAVSEC, SGDDAT RM. REG+22 

RM. REG, RM.REG+10,RM.REG+12.RM.REG+14,RM.REG+42,RM.REG+40,RM.REG+44 RM. REG*46 
RM.REG+2,RM.REG+4 RM. REG+6 .RM.REG+16.RM.REG*+20_.RM.REG*+22_RM_REG+24_RM_REG*26 
RM. REG*+ 30, RM.REG*+32,DS.CYL.DS.TRK 


DRIVE ,FMTDPB+12,DS.TRK,SAVSEC 


ERROR MESSAG 


1 045402 
2 045404 


CZRMLAO ert $e FORMATTER 


CUE WN—OODONOUEFWN—OOOa~n 
ooo 
rx 
w 
5S 
S 
o 


PRORIPRIPRIPIIY RY wt et et et ss es es 


27 045466 


000001 
og 
000001 
000001 
007 
saree * 
000003 
007 
064046 
044132 
007 
000001 
000004 
005 
044326 
044423 
010 
044521 
004 
000001 
005 
000006 
044326 
010 
044423 
010 
a 
000001 
004 


000 
000 
000 
000 
000 
000 
000 
140 
034 
034 
000 
000 
014 
000 
034 
000 
000 
014 
000 


DFI: 
DF2: 


DF 25: 


ODN MN FOOT OO UVF NID NO NI SS OS i 8 SO es 
. . 7 
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SEQ 0126 
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BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM SEQ 0127 


} -SBTTL BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM 
3 ;THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS ‘ 

4 jOF THE RH/RM IS SETUP FOR THE PROPER ADDRESS. 

? IT WILL ALSO READ THE ADDRESS FROM THE TTY IF 

: :NOTE THIS ROUTINE DESTROYS RO-R4 

9 

10 ; JSR PC,BUSADR 

: } ; RETURN 

13 045516 005737 001376 BUSADR: TST CHGADR ;INPUT FROM TTY REQUESTED? 

14 045522 001436 BEQ 3$ :NO 

15 045524 005037 001376 CLR CHGADR :DISABLE CHANGE OF RH/RM ADDRESS 
16 0645530 104401 001205 TYPE /SCRLF 

17 045534 012700 001274 1$: MOV #SRMADR,RO FIRST ADDRESS 

18 045540 104401 045636 TYPE »MRMCS1 s'RMCS1=' 

19 045544 011046 MOV (RO) (SP) :PRESENT RMCS1 ADDRESS 

20 045546 104402 TYPOC :TYPE IT 

21 045550 104401 036425 TYPE ,BLNKS2 [TYPE 2 SPACES 

22 045554 104411 RDLIN :GET THE ENTRY 

23 045556 012601 MOV (SP)+,R1 SADDRESS OF ASCII TEXT 

24 045560 004537 045654 JSR R5,CK.NUM sENTER AND STORE NEW ADDRESS 

25 045564 000763 BR 1$ SERROR RET 

26 045566 012700 001276 2$: MOV #SRMVEC,RO CHECK VERC 

27 045572 104401 045645 TYPE /MRMVEC s'RMVEC=' 

28 045576 011046 MOV (RO) ,-(SP) ; PRESENT RH/RM VECTOR ADDRESS ON THE STACK 
29 045600 104402 TYPOC ‘TYPE IT 

30 045602 104401 036425 TYPE ,BLNKS2 TYPE 2 SPACES 

31 045606 104411 RDLIN :READ THE ENTRY 
32 045610 012601 MOV (SP)+,R1 sASCII1 TEXT ADDRESS 

33 045612 004537 045654 JSR R5,CK.NUM sENTER AND STORE NEW ADDRESS 

34 045616 000763 BR TERROR RET 

35 0645620 012700 001274 3$: MOV #SRMADR, RO sFIRST ADDRESS OF NEW PARAMETERS 
36 045624 012701 030034 MOV #RMADR,R1 sFIRST ADDRESS OF WHERE TO PUT THEM 
37 045630 012021 MOV (RO)+,(R1)4 ‘BUS ADDRESS 

38 045632 012021 MOV (RO)+,(R1)+¢ ‘VECTOR ADDRESS 
39 045634 000207 RTS PC RETURN 
41 045636 122 115 103 MRMCS1: .ASCIZ @RMCS1=a 
42 045645 122 115 126 MRMVEC: .ASCIZ @RMVEC=a 
4, .SBTTL CK.NUM = CHECK NUMBER (OCTAL) 
45 sTHIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
46 : AND FORMS AN OCTAL NUMBER IN R2 

7 CALL: 

48 : #ADR,R1 ZADDRESS OF ASCIZ STRING 

49 : ROe ADDRESS TO STORE THE NUMBER 

50 ; JSR R5,CK.NUM 

51 ; RET ERROR RETURN 

52 ; RET2 NORMAL RET 

53 

28 

56 045654 010246 CK.NUM: MOV R2,-(SP) :SAVE R2 

57 045656 010346 MOV R3,-(SP) TSAVE R3 


" CZRMLAO gt FORMATTER 
NUMBER (OCTAL) 


CK.NUM = CHECK 


58 045660 
59 045662 
666 


86 760 
87 045762 
88 


CoOQOCCOCONOoNo-o-— 


So SeSeSosonons se 
VWOo 
ee 


000006 


000060 
000067 


177770 
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2$: 
3$: 


4$: 
5$: 


R4,-(SP) 
#6,R3 


p 
(R1)4+,R4 


5 

#177770,R4 

R4,R2 

R 

2$ 

1$ 

(R1)4,R4 

5$ 

“ 

RD (RO) 
(R5)+ 
SP)+,R4 


(SP)+,R3 
(SP)+,R2 
R5 


7 SAVE R4 
7MAX OCTAL DIGITS IN THE NUMBER 
:FINAL OCTAL VALUE 
:GET CURRENT POINTED BYTE 
:BR IF TERMINATOR DETECTED 
; SMALLER — getsaee ? 


‘SHIFT LEFT 
‘ONE 


sOCTAL DIGIT 

ERROR IF CARRY BIT SET 
CHOP OFF HIGHER BITS 
s;APPENDING CURRENT DIGIT 
:DECREMENT BYTE COUNT 
:BR IF LAST DIGIT 
;LOOPING BACK 

CHECK TERMINATOR 

BR IF NOT FOUND 

i VALUE = 0 ? 


YES 

;REPLACE THE ORIGINAL VALUE 
;ADJUS1 FOR NORMAL RET 
RESTORE 4 

sRESTORE R3 

+ tpt R2 


SEQ 0128 


~CARMLAO RMO5/3/2 FORMATTER 


READ/WRITE ‘BUFFERS 


— 


—"OOCONO VE Wh 


0 
0 
1 


»SBTTL 
45764 000000 000000 000000 RBUF: 
45774 BUF P: 
06174 BUF Vv: 
000200 END 


;BUFFER 


READ/WRITE BUFFERS 
STARTS HERE 

-WORD 0,0,0,0 
-BLKW = <258.#32.> 
~BLKW = -<258.*#32.> 
200 


M10 
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;BUFFER FOR HEADER CHECK 


;FORMAT AND CHECK BUFFER STARTS HERE AND 
sWILL OVERLAY ALL REMAINING CODE IN PROGRAM 
;BUFFER FOR VERIFY ONLY MODE 


SEQ 0129 





> Pd 
: ~J J 
~J 


oe = 176700 


a 
a 


CDW 00 
ACDW2 = 000000 
ACK = 000123 
ACPUOP= 000000 
ACTDRV OS 5f28 
ACTSTR 02775 
ADDRIS 037775 
ADDWO = 


DW 00 
ADDW4 = 000000 
ADDWS = is ee 


ASWREG= 000000 
00000 


AIA = 

ATABIT 030022 
ATESTN= 000000 
ATIN 001372 


BwWIwawwwwwwwwwTwoaw 
a 


— CZRMLAO_RMOS/3/2 FORMATTER 
SYMBOL TABLE 


Pd 

—_ 

o 
hnnnnnhnnhnnnnnu 


CWONO WE WR 


B1T9 


BUSADR 


N 10 
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000001 


045516 


AAAAAOAOOOOOr@Ww 
bab bh bb ht << 
ONINOULS War 


CKSWR = 


SOOO COOCOCOOOCO -OOCOCOCOOCOCOoOOoOOoOOoOe 
SOOWONP £NMNN OWWNNWAI WO" WO 


043665 


LJ 

_" 

m 
“uu 


LJ 

—4 

Oo 

- 
nunnnt tt 


m 
o 
— Tr 
“ut 


Ne Om 
MmMLEOMmNLO Ss 


SEQ 0130 


r Se 
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| SYMBOL TABLE SEQ 0131 


ILF == (000001 MSELD 06624 PGE = 002000 RETRY 001344 SEC30 001360 
= 000002 MSELP 037331 PGM = 001000 RMADR 030034 SEEK = 000105 
| INSERT 02160 MSFOR 03745¢ PIP = 920000 RMAS = 000016 SEEKFG 027776 
| 1OTVEC= 2 MSGBLK 04041 PIRQ = 177772 RMBA = 000004 SELDRV= 000145 
= 0001 MSIZE 037004 PIRQVE= 000240 RMCS1 = 000000 SELPAT 013462 

ISR 032706 MSQVER 037537 POPQUE 036134 RMCS2 = 000010 RNL 012 
A 032532 MSTCK = 000010 PRO = 000000 RMDA = 000006 SETFMT= 00014 
| LACNT 027764 MSVER 037600 PR1 = 000040 RMDB = 000022 ETHDR 017556 
= 000012 MUNIT 036372 PR2 = 000100 RMDC = 000034 SETTBL 017352 

LODEV 036315 MUSDR 036554 PR3 = 000140 RMDS = 000012 TVEC 0101 
LOP.CK 017304 MUTLTY 041204 PR4 = 000200 = 000026 SET.1E 035374 
LST. = 002000 MVCMPT 037700 PRS = 000240 RMECT = 000044 SKI = 040000 
LSTRK 001324 MVERFY 036767 PR6 = 000300 RMEC2 = 000046 SLASH 036405 
MADRER 037230 MWC 001354 PR? = 000340 RMERRS 027666 SNGSEC 001322 
MAXSEC 001362 MWR = 000040 S$ = 177776 RMER1 = 000014 SN1 040101 
MCCMPT 037656 MXDLTA 030044 PSEL = 002000 RMER2 = 000042 SOFSW 001316 
MCHECK 036713 = 001000 P = 177776 RMHR = 000036 SORT! 014116 
MCLK = MXLACT 030042 PWRVEC= 000024 RMINIT 030052 SORT2 020710 
MCPE = 020000 MX“NDW 030050 QCNT 035446 RMLA = 000020 SRCHWT 027750 
MCPEMX 030032 011342 QDRVO 035540 RMMR1 = 000024 STACK = 001100 
MDRNP 036500 m1 010776 QDRVv1 035560 RMMR2 = 000040 STARS 037753 
MER11 036525 MIA 011132 GDRV2 035600 RMOF = 000032 START 007014 
MESG1 040022 M1B 011306 QDRV3 035620 RMR = 000004 STCLK1 020074 
MESGIO 041622 M2 011720 QDRV4 035640 RMSN = 000030 STCLK2 020144 
MESGI11 041672 MG 012000 QDRVS 035660 RMTMR 034272 STCLK3 020150 
MESG12 041742 MGA 012026 QDRV6 035700 RMVEC 030036 STKLMT= 177774 
MESG13 042012 M5 012146 QpRv? 035720 = 000002 STO 034362 
MESGI14 042041 MSFX 010466 QINPT 035456 RM.REG 005560 S101 034416 
MESG1S 042051 NBA = 100000 QOUTPT 035476 RMOS 030622 S102. 034512 
MESGI7 042126 NED = 010000 QSTART 035516 RNOP = 000101 STO3 = 034542 
MESG2 040212 NEM = 004000 QSTOP 035520 RTC = 000117 S105 0034566 
MESG3 040112 NEXT 005536 QTERM = 035740 R6. = £00000 S106 = 034574 
MESG4 040354 NOTPRS 036270 RBUF 045764 R7 —- =%000007 S10? 034632 
MESGS 041236 NOTRM 036247 RDCHR = 104410 SAVEFG 027774 STOB 034662 
MESG6 041321 NOTSAF 036305 RDDAT = 000171 SAVREG= 104412 S109 ©: 034672 
MESG7 041404 NUMERR 037723 RDHD = 000173 SAVSEC 001346 ST.CLK 020016 
MESGB 041467 OFDIR = 000001 RDLIN = 104411 SAVWE 001350 013462 
MESG9 041552 OFFSET= 000115 RDY = 000200 SC 033122 SVRH70 035256 
F = 100000 OPI = 020000 RD.ADR 034730 SCAWC 017530 wR 001154 
MECMPT 037633 OPT 031114 RD.RM 034704 SCOPE = 000004 SWREG 000176 
MFORMT 036672 = 000200 RD.RM1 034726 §C01 = 000100 swO = 000001 
MHALT 040373 O.ENTR 020302 RD.KM2 035052 §CO2 = 000200 swOO = 000001 
MINX = 000004 a 01404 RD.RM3 035056 $C04 = 000400 SwO1 = 000002 
MLODEV 036574 PAR = 000010 RD.RM4 035062 SC10 = 001000 SwO2 = 000004 
MMODE 036636 PARENT 020454 RD.WRD 034732 SC11 033754 Sw03 = 000010 
MNDLTA 030046 PAR] 005776 READIN= 000121 SC12 034064 SWw04 = 000020 
MODE 001320 PAR2 006011 RECAL = 000107 SC13. 034134 Sw05 = 000040 
MOFFLN 036457 PAR3 006024 RECORD 020570 $20 = 002000 Sw06 = 000100 
MOH = 00 PARG 006035 REJCT2 017134 C3 033172 sw0? = 000200 
MOL = 010000 PARS 00604 REJCT3 017162 SC& 033176 SwO8 = 000400 
(MPE = 00 PAR6 00605 REJECT 17112 S¢5 033210 sw09 = 001000 
| MRD = 000020 PAR? 106070 RELSE = 000113 C6 033404 Sw1 = 000002 
MRMCS1 045636 PARB = 06101 RESET 021416 SCOA =: 00383520 SW10 = 002000 
| MRMVEC 045645 PAT = 000020 RESREG= 104413 SC7 033646 Swi1 = 004000 
MSCHK 037505 PATA 001340 RESTRT 020160 (8 033724 Swi2 = 010000 
| MSEC30 037053 PATB 001342 RESVEC= 000010 SEARCH= 000131 Sw13 = 020000 
/MSEC32 037132 PATSEL 001336 RETBAD 012230 SECCU 005434 SW14 = 040000 

| 
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SYMBOL TABLE SEQ 0132 


Sw15 = 100000 UPDTRK 017756 SBDADR 001136 SLE 091206 SRTNAD 017004 
Sw2 = 000004 UPE = 020000 SBDDAT 001142 SLFLG 02510 SSAVRE 027506 
Sw3 = 000010 USSAV 0044390 $BELL 001200 SLKCSB 001302 SSAVR6 027200 
Sw4 = = 000020 USTAB 003424 $CDw1 001270 SLKCSR 001300 SB2D_ 027256 
| SWS = 000040 US1 = 00000) $CDW2 001272 $LKS_ 001310 SSETUP= 000116 
| Sw6 == 000100 uS2 = 000002 SCHARC 024634 SLLVEC 001312 STUP = 177777 
| $w7 = 000200 US4 = 900004 SCKSWR 026064 SLPADR 001122 SSUPRS 027216 
| $W8 == 000400 vw == 000100 SCMTAG 001114 SLPERR 001124 S$SVPC = 000210 
| $w9 == 001000 wC 001352 $CM3 = 000000 SLPVEC 001304 $SWR_ = 123000 
1 036415 WCE = 040000 $CM4 = 000001 SMADR1 001242 SSWREG 001232 
TABCAL 006120 wCF = 000040 SCNTLC 026767 SMADR2 001246 STESTN 001214 
TABINT 012532 WCKD = 000151 SCNTLG 027001 SMADRS 001252 TKB = 001162 
TABLD 012614 WCKHD = 000153 SCNTLU 026774 SMADRS 001256 STKCNT 025560 
TABLE 005650 WCTBL 006232 SCPUOP 001236 SMAIL 001210 STKINT 025576 
TABLE2 005702 WLE = 004000 SCRLF 001205 SMAMS1 001240 STKQEN= 025575 
TABLES 005726 WRAP = 001400 $DBLK 025550 SMAMS2 001244 $TKQIN 025562 
TABLES 005752 WRL_ = 004000 $DB2D 027312 SMAMS3 001250 $TKQOU 025564 
| TAB. Y= 001114 WRTDAT= 000161 SDECVL 027472 SMAMS4 001254 $TKQSR 025566 
AP = 040000 WRTHD = 000163 $DEVCT 001220 SMBADR 001102 KS_ 001160 
TBITVE= 000014 WRTRK 013622 SDEVM 001266 SMFLG © 025102 STKSRV 025646 
032752 WRTRKA 014320 SDOAGN 017002 SMNEW 027017 STMPO = 001174 
TEXT 021050 WRTRKB 014436 SDTBL_ 025540 SMSGAD 001224 SIN = 000002 
TIMER 030000 WRTRKC 014522 SENDAD 016772 SMSGLG 001226 STNPWR 027422 
TKVEC = 000060 WRTRKD 014604 SENDCT 016756 SMSGTY 001210 TPB 001166 
TPVEC = 000064 WRTRKE 014652 SENV 001230 SMSWR 027006 STPFLG 001173 
TRAPVE= 34 WRIRKF 014566 SENVM §=001251 SMTYP1 001241 TPS 001164 
E___= 040000 WRTRKH 014616 SEOP = 016342 SMTYP2 001245 STRAP 027602 
TRKTST 017426 WRTRKX 013676 SEOPCT 016750 $MTYP3 001251 STRAP2 027624 
TRK1 = 004000 WRTRKY 013744 SERFLG 001117 SMTYP4 001255 TRP = 000014 
TRK10 = 040000 WRTRKZ 015536 SERMAX 001131 $NULL_ 001170 STRPAD 027636 
TRK2 = 010009 WRTRK1 014270 SERROR 023620 SNWTST= 000000 STSTM, 001104 
TRK20 = 1000 WRTRK2 014666 SERRPC 001132 SOCNT 025330 STSTNM 001116 
TRKG = WRT.AD 035154 SERRTB 006526 SOMODE 025332 $TTYIN 026752 
TRNSWT 027746 WRT.RM 035064 SERTTL 001126 SPASS 001216 STYPDS 025334 
TRIVEC= 000014 WRT.R1 035150 SESCAP 001176 SPASTM 001106 $TYPE 024304 
11 = 007026 WRT.R2 035242 SETABL 001230 SPOWER 027202 STYPEC 024516 
T 36421 WRT.R3 035246 SETEND 001274 $PWRAD 027170 STYPEX 024636 
TYPADR 020354 WRT.R4 035252 SFATAL 001212 SPWRDN 027030 $TYPOC 025132 
| TYPDS = 104405 WRT.RS 035254 SFFLG 025104 SPWRMG 027164 STYPON 025146 
TYPE = 1046401 WRT.WD 035152 SFILLC 001172 SPWRUP 027102 STYPOS 025106 
TYPERR 024054 XSIZE 010422 SFILLS 001171 SQUES 001204 SUNIT 001222 
TYPOC = 104402 XXDP 001412 SGDADR 001134 SRDCHR 026426 SUNITM 001110 
YPON = 104404 036417 SGDDAT 001140 SRDLIN 026516 SUSWR 001234 
TYPOS = 104403 ZERO 036403 SGET42 016762 RDSZ = 000015 $VECT1 001260 
pet SAPTHD 001100 $GTSWR 026154 SRESRE 027544 SVECT2 001262 
ULDFLG 027754 SATYC 024664 $HD__ = 000000 $RMADR 001274 SXOFF = 000023 
UNS SATY] 024640 SHIBTS 001100 SRMVEC 001276 = 000021 
| UNSTAT 036354 SATYS 024646 SICNT 001120 $RMO2 036335 $$GET4= 000000 
| UNTOFF 036226 SATY4 024656 SILLUP 027174 $RMO3 036342 SOFILL 025331 
|UNTON 036237 $AUTOB 001150 SINTAG 001151 $RMOS 036347 = 001100 
| UPDCYL 017644 SBASE 001264 SITEMB 001130 
| 
| 


| 000000  ~—«-001 
“ERRORS DETECTED: 0 
“VIRTUAL MEMORY USED: 45296 WORDS ( 177 PAGES) 


SEQ 0133 
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SYMBOL TABLE 


CZRMLA.BIC,CZRMLA/C=CZRMLA.DOC,CZRMLA,SYSMAC/M 


SEQ 0134 


SEQ 0135 


1 
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| CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0136 
$GDADR 5-0" 
—SGDDAT 5-0" 10->86* 15-16 
| SGET42 10-5688 
| SGTSWR 10-2624 10-275 10-275 
| $HD 4-72 4-72 4-72 
| SHIBTS 4-2868 
| SICNT -0" 
SILLUP 10-764 10-764 10-764# 
SINTAG 5-08" 10-762 10-762 10-762 10-762 10-762* 
SITEMB 5-0" 10->86 10->86 10->86 10->86* 10->96 
Sif 5-0" 10->86 10->86 10-754 10-754 10-2762 10-762 10-762 
SLFLG 10-2564 10-756* 
KCS -0" 10-779« 


SLKS 6-0" 10-784 
| SLLVEC 386-08 10-785 


| 
'$LPERR 5-0# 9-40" 10-260" 10-267" 10-408* 10-651 10->86 
SLPVEC 6-0# 10-775 


SMADR1 5-08 

SMADR2 5-08 

SMADRS5 = 5-04 

SMADRG = 5-0" 

SMAIL 4-286 4-286 5-0" 8-9 8-14 8-15 10->86 10-754 
SMAMS1 5-04 ‘ 

SMAMS2 5-04 J 

SMAMS5 = 55-08 

SMAMSG §=655-0# 


SMFLG 10-756 10-2756# 10-2756" 10-756« 
SMNEW ? ? 

SMSGAD 5-0# 10-756 10-256« 

SMSGTY 5-0# 10-256 10-756 10-2756" 10-756« 


SMTYP1 5-04 
SMTYP2 5-08 
SMTYP3 5-0" 
SMTYPG 5-0" 
SNULL 5-08 10-754 10-754 10-754 
SNWTST -94 


SOCNT 10-7584 10-758" 10-758 

SOMODE 10-758 10-?58# 10-758 10-758" 10-758 10-758 

SPASS 5-0" 8-14" 10-568 10-568 10-568" 10-568 10-568 10-589* 
SPOWER 10-764 10-765¢ 

SPWRON 8-14 10-764 10-764# 


| SPWRUP 10-264 10-2648 
SQUES 5-08 8-228 8-255 8-298 8-391 10->86 10->86 10-754 10-254 10-2762 10-262 10-262 10-762 


/$RDCHR 10-262# 10-275 10-275 


'$RDLIN 10-262 10-775 10-275 
“$RDOCT 10-275 


10-762 10-7628 


$RDSZ 


SEQ 0137 
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CROSS REFERENCE TABLE (CREF v01-05 ) 
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8-9 8-98 


8-9 


J1 


10-7588 10-775 


$TYPOS 


SEQ 0139 
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CROSS REFERENCE TABLE (CREF v01-05 ) 


SUNIT 5-0" 6-0 
SUNITM 44-2868 


SVECTI: «5-0 = 8-68 = 8-70 


$ 10-754 10-754 
SASTA 10-756 10-756 
x 4-286 4-2864 
| Al6 4-864 
| Al7 4-878 
| ABASE 4-2748 5-0 5-0 
' ACDW1 5-0 5-0 
| ACDW2 5-0 5-0 
ACK 4-262 
| ACPUOP 5-0 5-0 
/ ACTDRV 11-928 11-361" 11-412" 11-738 
| ACTSTR 11-988 Tl-:11® 11-:25* 
| ADDRIS 10-853 12-56# 
ADDWO 5-0 
ADDW1 5-0 
ADDW10 5-0 
ADDW11 5-0 
| ADDWI2 5-0 
ADDW13 5-0 
ADDW14 5-0 
ADDW15 5-0 
ADDW2 5-0 
ADDW3 5-0 
ADDW4 5-0 
ADDW5 5-0 
ADDW6 5-0 
ADDW7 5-0 
ADDW8 5-0 
DD 5-0 
ADEVCT 5-0 5-0 
ADEVM 5-0 5-0 
ADRTBL 6-04 10-237 10-308 10-568 
AENV 5-0 5-0 
AENVM 5-0 5-0 
AFATAL 5-0 5-0 
AMADR1 5-0 5-0 
AMADR2 5-0 5-0 
AMADR3 5-0 5-0 
| AMADRS 5-0 5-0 
AMS1 5-0 5-0 
AMAMS2 5-0 5-0 
AMAMS3S 5-0 5-0 
AMAMS4 5-0 5-0 
AMSGAD 5-0 5-0 
AMSGLG 5-0 5-0 
AMSGTY 5-0 5-0 
AMTYP1 5-0 5-0 
AMTYP2 5-0 5-0 
1 AMTYP3 = 55-0 5-0 
| AMTYP4 = =5-0 5-0 


11-:09 


- 


——— 


SEQ 0140 


SEQ 0141 
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CROSS REFERENCE TABLE (CREF v01-05 ) 


SEQ 0142 


10-756 10-7568 


5-0 


8-192 11-152H «(11-327 11-424 11-530) 11-928 = 11-950) -11-958 = 11-959 11-979 11-69 


8-184 





9-203*  9-208* 10-76 10-:15 = 10-341 


9-198* 


8-274* 8-329" 8-353 10-671 10-716 10-985 10-991" 10-997« 


8-158* 


10-986 
WW-911 11-913 


11-671 


10-737 
11-657 


11-659 


11-404 


Ot OS et te te 


N 11 


4-788 


BITS 


SEQ 0143 
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were 
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SEC30 


6-08 


8-166" 


8-176* 


8-260* 


8-267* 


9-126 


D 13 
10-42 


10-74 


10-720 


10-988 


10-990 


10-9948 


10-:20 


10-:26 
SEQ 0159 


CZRMLAO RMO5/3/2 FORMATTER 


10-:67 10-;51 
SECCU 6-0" 10-60 


SEEKFG 8-312" 11-1324 
SELDRV 4=-2664 
SELPAT 10-74 
SERNL 9-1448 
SET.1E 11-255 11-286 
SETFMT 44-2658 9-33 
SETHDR 10-39 10-396 
SETTBL 10-38 10-395 
SETVEC 8-67 8-73 
SKI 4-2348 
SLASH 10-885 12-154 
SN1 9-154 12-584 
SNGSEC 6-08 10-402* 
SOF Sw 6-04 10-146* 
SORT1 10-1094 
SORT2 10-568 10-9344 
| SRCHWT 11-868 11-4248 
, ST.CLK 8-80 8-309 
| $11 10-24 10-385 
STACK 4-788 8-14 
STARS 10-568 #£12-55¢4 
| START 4-279 8-74 
| STCLK1 10-772 10-782@ 
| STCLK2 10-783 10-791" 
| STCLK3 10-781 10-790 
| STKLMT 4-784 
' $10 11-:19 11=:394 
| $101 11-:514 
$T02 11-:50 3 11=:52 
| $T03 11-:70 11=:764 
$1050 11=:82# 
| $106 11-:72 11-:844 
! $107 11=-:74 11-:924 
| $108 11-:91 11-:984 
| $109 11-:48 11-:58 
| SVRH70 11-607 11-768 
| SWO 4-784 10-576 
| $WOO 4-78 4-784 
| $wO1 4-78 4-788 
| $wO02 4-78 4-784 
| $wO3 4-78 4-788 
SW04 4-78 4-788 
' $wO5 4-78 4-788 
| $w06 4-78 4-784 
SwO7 4-78 4-788 
S$w08 4-78 4-788 
Sw09 4-78 4-788 
Sw 4-788 
Sw10 4-788 
/ Swit 4-788 
, SW12 4-784 
Swi3 4-788 
/ SW14 4-788 
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CROSS REFERENCE TABLE (CREF v01-05 ) 


10-<23 
10-79 
11-226 


aatatah atad 
co PTT TF oo 


10-7924 


11-:54 


10-649 


10-109 10=110 =10127 10-129 10-138 10-140 
11-454 

11-471 11-685 911-818 =: 11-< 394 

10-568 

10-993 

10-438 10-464 

10-322* 10-324 10-326 10-328 10-333" 10-342 
10-:43  10-:746 10-:94 10-=53  10-=5 

11-950 11-959» 

10-587 

9-90 10-241 10-267 10-580 10-823 

11-:684 

11-:75 9 112:79-112:81.-112:83 11-289 -11=:96 
11-8462 11-892. 11-910 s-11-957 11-991 11-61 


10-160 


10-706* 


1 
1 


1-;004 
1-:99 


10-353 


11-<07# 


SEQ 0160 


swiS G78 ie 


SEQ 0161 


SEQ 0162 
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MACRO v03.01 11 


CZRMLAO_ RMO5S/3/2 FORMATTER 
CROSS REFERENCE TABLE (CREF v01-05 ) 
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6 
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10->86 
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244 
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840 
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10=>86 

11-:15 

11-:65* 
0 
3 
2 
5 
6 
1 
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64 


OM—NO— OM — OO 


10-649 
11-998« 
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9 
17-20 


8-85 

873« 918* 

11-669" 11-678 
3 0 
2 2 
9 9 
9 2 
8 9 
0 0 
9 2 
1 
0 
6 
6 

10-?754 


10-262 


11-651 
5 
2 
2 
3 
1 
6 
8 
< 
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AONnOwenenwsw wo 
OWOMODNOKO-NOO CO 
TOU —OOV NOM ot 
poeoeterevpeupeovee 8 


os 


663* 
10-?62* 
11-638* 


3 
DW MOCO -OMUoOr 


ooeeeseueeeuete 
DWDDOAOOCOOCOK 


er 


12-208 


Wve nae nKOOm 

Cte SPAR quae ah $4, 
ohterevpteotevpeveeeeunvnnen 

Corry TOOT DDOODDDDO 
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—a 


~568 
3 
8 
8 
8 
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TYPON 10-?75@ SEQ 0163 


ee 


CZRMLAO RMO5S/3/2 FORMATTER 


TYPOS 8-38 8-49 
UF on 


4-24 10-440 
ULDFLG 11-1054 11-281 
UN 4-1628 
UNSTAT 8-90 12-124 
UNTOFF 8-107 12-38 
UNTON 8-1 12-48 
UPDCYL 10-485 10-695 
UPDTRK 10-472 10-682 
U 4-1148 
US1 4-1018 
uS2 4-102 
US4 4-1034 
USSAV 6-04 - 
10-<76* 10-<77 
USTAB 6-04 9-95 
10-;54 10-<21 
vw 4-135" 
wC 6-04 8-169 
WCE 44-1154 10-286 
WCF 4-1538 


| WCHKX 11-769 11-790 


WCTBL 6-0" 10-208 
| WLE 4-159" 10-657 
| WRAP 6-08 8-160+ 
| WRL 4-140# 
| WRT.AD 11=;64* 11-;74* 
/WRTLRT 11-3754 11-395 

WRT.R2 11-361" 11-;948 

WRT.R3 11-:70 11-:81 
|WRT.RG 11-386 11-398 

WRT.RS 11-:97 11-:99# 
| WRT.RM 11-315 11-319 
11-615 11-628 
| WRT.WD 11-362" 11-366 
| WRIDAT  4-269# 

'WRTHD 4=270# 10-239 

| WRIRK 10-388 

“WRTRK1 10-1468 

|WRIRK2 10-2398 10-323 

| WRIRKA 10-154# 10-345 

|WRTRKB 10-168 10-1834 
/WRIRKC 10-181 10-205« 

WRIRKD 10-162 10-176 

WRIRKE 10-215 10-235¢ 

WRIRKF 10-175 10-199 

WRTIRKH 10-220 10-225¢ 


WRIRKZ 10-5 10-365# 

XSIZE 8-1454 

XXDP 6-0 8-26* 
8-258 0-811 


Y ' B- 1 
ZERO 8-295 12-148 


MACRO v03.01 11-APR-80 13:01 
CROSS REFERENCE TABLE (CREF v01-05 ) 


10-7344 
10-7594 


9-129 


9-135 
10-<25 


8-174* 


10-211 
8-275 
11-;778 


11-;84 


11-;73* 
10-568 


10-186 
10-195 
10-2174 
10-368 


9-16 
11-384* 


9-200* 


9-199« 
10-<68* 


8-261* 


10-226 
8-352* 

15-4 

11-;90 


11-501 
11-894 
11-; 768 


10-:61 


10-200 


8-30 


10-392 
11-567* 


9-202" 


9-201" 
10-<69« 


8-268* 


10-229 
8-363" 


11-;964 


10-2224 


8-32 


10-2758 
11-633* 


9-206" 


9-209* 
10-<70 


10-26 


10-315 
10-476 


8-37 


1 13 
:23 PAGE S-16 


11-670* 


10-:24 
10-72 


10-318 
10-686 


11-523 


8-48 


11-839 


10-;49 
10-568 


10-568 
10-739 


11-527 


8-113 


11-925 


10-;50 
10-908 


11-538 


8-115 


11-9278 


10-;55 
10-918 


11-545 


8-195 


11-946 


10-; 56 
10-:18 


11-555 


8-197 


SEQ 0164 


11-948" 11-:64¢ 


10-<22 = 10*<26=—s-:10«75e 
10-;47 = 10-;48 10-;53 


11-569 =11-579 = 11=600 


8-302 8-304 


J 13 
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CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0165 
SSCMRE 46-4818 

SSCMIM 4-4818 5-0 " 

SSESCA -784 


10-?75 y ae it 10-775 10-275) 10-775 10*775 102775) 10-775 10-775 10-775 10-775 10=775e 


.$APTB) 4-674 = 5-0 5-0" 


$EOP = 4-658 =: 10-568 
SERRO 8604-658) =: 10-86 


-SPOWE 4-664 10-764 


-HEADE 4-648 4-72 

SETUP 4-648 4-277 

SWRHI 4-648 4-73 

-SWRLO 4-738 4-74 4-75 4-76 

CKCHR 4-164 8-293 8-384 10=>45 10->53 
CKDIG 4-26# 10-888 


[OMMEN 4-788 
ENDCOM 4-784 
ENDTYP 10-4884 10-568 
ERRCAL 10-?77# 11-817 11-868 11-870 11-;32 8 11-;91 
ERRENT 10->74# 10->86 
ERROR 4-84 10-250 10-251 10-252 10-253 10-254 10-255 10-281 10-282 10-283 10-284 10-285 10-291 10-298 
10-302 10-304 10-418 10-419 10-420 10-421 10-422 §=10-432) =: 10-434 10-445 10-454 10-568 10-568 # 10-568 
10-568 10-568 10-568 #£«10-601 
ESCAPE 4-788 10-248 10-279 10-294 10-416 
GETPRI 4-784 
GETSWR 4-684 4-784 8-15 8-154 
LOOP 4-524 10-267 
MORETA 44-2898 5-0 
LT 4-784 
NEWTST 4-784 8-9 
POP 4-784 10-752 10-767 10-756 10-756 10-760 10-764 10-764 10-773 
PUSH 4-784 10-734 10-759 10-756 10-756 10-756 10-760 10-764 10-2764 10-273 
REPORT 4-788 
SETPRI] 4-784 10-762 
SETTRA 10-2775 10-775 10-775 10-775 10-775 10-775 10-775 10-775 10-775 10-2775 10-275 10-775 
SETUP 4-784 8-14 
SKIP 4-788 


CZRMLAO RMOS/3/2 FORMATTER 


STARS -788 4-283 
10-754 10-756 
10-773 = =10-?75 

SWRSU 4-788 8-14 

TRMTRP 10-?758 

TYPBIN 4-788 

TYPDEC 4-784 10-568 

TYPNAM 4-784 8-1 

TYPNUM 4=-788 

TYPOCS 4-788 8-92 

—TYPOCT 4-784 10-724 
TYPTXT 4-788 8-18 


K 13 
MACRO VO03.01 11-APR-80 13:01:23 PAGE M-2 
CROSS REFERENCE TABLE (CREF v01-05 ) 


9-16 


10-?62 


8-35 


4-286 4-286 5-0 
10-760 10-2762 10-762 


10-392 
8-46 8-52 8-53 


5-0 
10-762 


5-0 
10-762 


8-9 
10-762 


10-3 
10-764 


10-568 
10-764 


10-612 
10-767 


10-616 


10-769 . 


SEQ 0166 


10=>86 
10-771 


